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IDENTIFICATION 


PRODUCT CODE: AC=-F138D-MC 

PRODUCT NAME: CJKDADO KTF11-AA MEMORY MANAGEMENT DIAGNOSTIC 
DATE: JANUARY, 1981 

MAINTAINER: DIAGNOSTIC PROGRAMMIMG 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS 4 COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
~ A” atest FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM 
AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED 
IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
THAT IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1979,1981 BY DIGITAL EQUIPMENT CORPORATION 
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PROGRAM HISTORY 


REASON FOR REVISION 


FIRST RELEASE 

SUBROUTINE FORMPA MODIFIED ERROR 
INFORMATION STORED IN RO,R2. THIS 
REVISION SAVES THE REGISTERS ON 
ENTRY TO THE ROUTINE AND RESTORES 

THEM ON EXIT 

CORRECTIONS WERE MADE TO THE MULTI- 

TESTER SUPPORT CODE. ALSO CODE WAS 

ADDED TO ALLOW PROGRAM OPERATION WHILE 
LINE CLOCK IS INTERRUPTING. 

EXPANDED ‘READ AND WRITE WHILE IN RELOCATE 
MODE’ TEST TO ALLOW UP TO 1.92MW OF MEMORY 
TO BE TESTED. CORRECTED BUGS IN THE 
"RELOCATION AND ADDER* TESTS TO ALLOW 

22 BIT ADDRESSING TO BE TURNFD ON AND TESTED. 
REMOVED RESET INSTRUCTONS FROM TESTS 

WHERE THEY WERE NOT REQUIRED. PUT IN 

CODE TO SKIP TESTS AFTER FIRST PASS IN 
APT MODE THAT REQUIRED RESETS FOR TESTING. 
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| 105 
| 196 1.0 PROGRAM INFORMATION 
108 
109 1.1 ABSTRACT 
oe eo oo ee See 
112 THIS PROGRAM WAS DESIGNED USING A ‘BOTTOM UP’ APPROACH 
113 STARTING WITH THE SMALLEST SEGMENT OF MEMORY MANAGMENT 
114 rOGIC POSSIBLE AND BUILDING TO COVER ALL OF THE LOGIC. 
115 THE DIAGNOSTIC WILL PROVIDE ENOUGH INFORMATION SUCH THAT 
116 BY DEDUCTION, THE FAILURE CAN BE ISOLATED TO A SMALL 
117 SEGMENT OF THE MEMORY MANAGEMENT LOGIC. 
119 THE PROGRAM BEGINS BY TESTING SOME OF THE INTERNAL CPU 
120 DATA AND ADDRESS PATHS AND ADDRESS DETECTION LOGIC, THEN 
151 WORKS OUTWARD THROUGH THE MEMORY MANAGEMENT REGISTERS. 
132 AFTER THE REGISTERS ARE FOUND TO BE USEABLE, RELOCATION 
133 (CONSTRUCTION OF PHYSICAL ADDRESSES FROM A VIRTUAL ADDRESS 
134 AND THE ASSOCIATED PAR/PDR INFORMATION) IS TESTED FOLLOWED 
155 BY TESTING OF THE ABORT AND STATUS SEGMENTS OF LOGIC. 
136 FINALLY. CHECKS OF SPECIAL ABORT SEQUENCES AND TESTING OF 
197 THE MFPI/MTPI INSTRUCTIONS ARE DONE. 
199 1.2 REQUIREMENTS 
13 PERE A Wi, 
132 A KDF11 PROCESSOR WITH A MINIMUM OF 16K OF MEMORY 
133 AND A CONSOLE TERMINAL ARE REQUIRED TO RUN THE PROGRAM 
134 UNLESS THE PROGRAM IS RUNNING UNDER APT OR ACT IN WHICH 
135 CASE THE CONSOLE TERMINAL IS NOT NECESSARY. 
137 1.3. RELATED DOCUMENTS AND STANDARDS 
139 
140 1. ACT11/XXDP PROGRAMMING SPECIFICATION 
141 2° STANDARD APT SYSTEM TO A PDP11 DIAGNOSTIC INTERFACE 
142 DIAGNOSITC ENGINEERING STANDARDS AND CONVENTIONS 
143 i. PDP11 MAINDEC SYSMAC PACKAGE 
144 a XXDP USER'S MANUAL 
“ 1.4 PRELIMINARY PROGRAMS 
148 
149 BEFORE THIS MEMORY MANAGEMENT DIAGNOSITC IS RUN, THE 
150 FOLLOWING CPU DIAGNOSTIC SHOULD BE RUN: 
192 CJKDB DCF11-AA CPU TESTS 
154 ALSO, ONE GF THE MAIN MEMORY DIAGNOSTICS SHOULD BE RUN 
155 TO SCAN AT LEAST THE FIRST 16K TO SEE THAT A PROGRAM 
196 CAN BE EXECUTED. 
158 2.0 OPERATING INSTRUCTIONS 
160 
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| 161 LOADING PROCEDURES 
a ee ee, 
164 THE PROGRAM IS SUPPLIED ON THE DIAGNOSTIC LOAD MEDIA. 
165 REFER TO THE XXDP USER'S MANUAL FOR FURTHER INFORMATION. 
166 FOR USE WITH ACT OR APT, REFER TO THEIR RESPECTIVE 
167 DOCUMENTS. THE PROGRAM CAN ALSO BE DIRECTLY LOADED 
108 USING THE ABSOLUTE LOADER AND THE BINARY PAPER TAPE. 
iy 2.2 STARTING PROCEDURES 
172 
| 175 THE PROGRAM IS STARTED BY LOADING ADDRESS 200. SINCE THERE 
174 IS NO HARDWARE SWITCH REGISTER, THE PROGRAM WILL USE THE 
175 SOFTWARE SWITCH REGISTER AT LOCATION 176 (LOCATION 174 
176 WILL BE USED AS THE SOFTWARE DISPLAY REGISTER). IN THAT CASE 
177 THE PROGRAM WILL ASK FOR THE INITIAL SWITCH REGISTER 
178 a BY TYPING ‘*SWR= XXXXXX  NEW= AFTER TYPING 
179 E NAME OF THE PROGRAM op we = THE OCTAL CONTENTS OF 
be LOCATION 176). (SEE SECTION 2.4 
182 
Hs 2.8 CONTROL SWITCH SETTINGS 
185 
136 SWITCH OCTAiL VALUE USE 
188 Sw15 100000 HALT ON ERROR 
189 THIS SWITCH WHEN SET WILL HALT 
190 THE PROCESSOR WHEN AN ERROR IS 
191 DETECTED AFTER THE ERROR MESSAGE 
192 HAS BEEN TYPED. PRESSING CONTINUE 
193 WILL RESUME TESTING (SEE SECTION 
194 3.1 ABOUT LOADING THE SWITCH REG 
1 BEFORE CONTINUING). 
197 SW14 040000 LOOP ON TEST 
198 THIS SWITCH WHEN SET WILL 
199 CAUSE THE PROGRAM TO LOOP ON 
sot THE CURRENT SUBTEST. 
202 Sw15 020000 INHIBIT ERROR 7YPEOUTS 
203 THIS SWITCH WHEN SET WILL 
204 INHIBIT THE TYPING Gr ERROR 
Spe MESSAGES. 
207 SwW12 010000 INHIBIT TRACE TRAP 
THIS SWITCH WHEN SET WILL 
INHIBIT T-BIT TRAPPING WHICH 


209 
210 
211 
212 
213 
214 
215 
216 


NORMALLY TAKES PLACE DURING 
EVERY OTHER PASS STARTING 
WITH THE THIRD PASS. 


SW11 004000 INHIBIT SUBTEST ITERATIONS 
THIS SWITCH WHEN SET INHIBITS 
ITERATIONS OF EACH SUBTEST AFTER 
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THE FIRST PASS. IF THIS SWITCH 
SA oe’ EACH SUBTEST IS RUN 


Sw10 002000 BELL ON ERROR 
| THIS SWITCH WHEN SET WILL RING 
THE CONSOLE TERMINAL BELL WHEN 
AN ERROR HAS BEEN DETECTED. 


Sw9 001000 LOOP ON ERROR 
THIS SWITCH WHEN SET WILL 
CAUSE THE PROGRAM TO LOOP ON THE 
FIRST FAILURE WHICH IS ENCOUNTERED 
EVEN IF THE FAILURE IS INTERMITTANT 


Sw8 =: 000400 LOOP ON TEST IN SWR<7:0> 
THIS SWITCH WHEN SET WILL 


LOADING THE SWITCH REGISTER 


IS 
RUNNING, A CONTROL G (*G) SHOULD BE TYPED ON THE CONSOLE 


IF A *G HAS BEEN TYPED.) THE ORIGINAL VALUE OF THE SOFTWARE 
SWTICH REG. WILL BE REQUESTED AS MENTIONED IN SECTION 2.2. 


IN RESPONSE TO A “G OR AT THE BEGINNING OF THE PROGRAM, THE 
PROGRAM WILL TYPE: 


SWR = XXXXXX NEW = 


WHERE ‘"XXXXXX’' IS THE CURRENT OCTAL CONTENTS OF LOC. 176. 
THE OPERATOR MAY THEN TYPE ANY ONE OF THE FOLLOWING: 
XXXXXX<CR> aie yay OCTAL DIGITS fy wie oMy 


<CR> JUST A <CR>, LEAVES THE SWITCH REG. 


AS IT IS. 
XXX*U A CONTROL=U (*U) WILL CAUSE ALi OF THE 
DIGITS TYPED SO FAR TO BE IGNORED. 
“Cc WILL CAUSE THE TO TYPE THE PRESENT 
TEST AND PASS NUMBERS, REQUEST A NEW VALUE 
FOR THE SWITCH REG., AND JUMP TO THE END- 
OF-PASS ROUTINE SO THE PROGRAM WIL!. GO DIRECTLY 
TO THE NEXT PASS WITH A NEW SW. REG. VALUE 
<ILL.CHAR> ANY CHARACTER TYPED WHICH IS NOT ANY OF THE 
ABOVE OR AN OCTAL DIGIT WILL_CAUSE THE ¢ wens 
TO TYPE A ‘*?<CRLF>'* AND REACT AS THOUGH A 
“U HAD BEEN TYPED. 


NOTE: RECOGNITION OF A “G MAY BE HAMPERED BY 
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| 

| ¢ 

i. ot: ee er ee EXECUTION OF A COUPLE ‘RESET’ INSTRUCTIONS 

| 274 WITHIN THE PROGRAM. 

| 2m 2.5 EXECUTION TIMES 
ek ae 
379 THE RUN TIME FOR A SINGLE PASS WITH NO ITERATIONS 
280 OR TRACE TRAPPING IS APPROXIMATELY 5 SECONDS. 
82 THE RUN TIME FOR A SINGLE PASS WITH ITERATIONS 
283 AND TRACE TRAPPING ENABLED IS APPROXIMATELY 30 SECONDS. 
285 3.0 ERROR INFORMATION 
RO eee nn mmm mn 
587 
288 3.1 ERROR REPORTING PROCEDURES 
B00 OS Se 
391 iF AN ERROR IS DETECTED, THE PROGRAM WILL TRAP TO THE 
292 ERROR HANDLING ROUTINE ($ERROR). THE VALUE OF BITS 
393 15.13.10, AND 9 IN THE SWITCH REGISTER ARE CONSIDERED 
394, IN REPORTING AN ERROR (SEE SECTION 2.3). THE 
295 ERROR INFORMATION WILL BE TYPED UNLESS SW13 = 1. 
397 IF Sw15 = 1. THE PROCESSOR WILL HALT AFTER THE ERROR IS 
298 REPORTED. if THE CONTENTS OF THE SOF TWARE SWITCH REGISTER 
399 ARE TO BE CHANGED, A *G SHOULD BE TYPED BEFORE PRESSING 
300 CONTINUE’ TO RESUME. TESTING. 
302 IF SW9 = 1 (LOOP ON ERROR), THE PROGRAM WILL GO TO THE 
303 ADDRESS CONTAINED IN LOCATION "‘SLPERR'’. AFTER REPORTING 
304 THE ERROR. ‘'‘SLPERR’’ IS SET BY EACH "'SCOPE’’ CALL AND IS 
305 SET DIRECTLY DURING SOME SUBTESTS TO PROVIDE THE SMALLEST 
306 LOOP FOR LOOPING ON ERROR. IF SW9 = 0, THE PROGRAM WILL 
307 RETURN TO THE INSTRUCTION FOLLOWING THE ERROR CALL. 
508 (SEE SECTION 5.3 FOR MORE ON ‘LOOP ON ERROR’). 
310 3.2 INTERPRETING ERROR REPORTS 
312 
313 EVERY ERROR REPORT TYPES THE NUMBER OF THE TEST IN WHICH 
314 THE ERROR TOOK PLACE (TESTNO) AND THE LOCATION OF THE 
315 ERROR CALL (ERRORPC). THESE TWO VALUES PINPOINT THE 
316 PLACE IN THE CODE THAT THE ERROR OCCURRED. BY REFERRING 
317 TO THE PROGRAM LISTING, THE OPERATOR CAN THEN READ THE 
318 COMMENTS ASSOCIATED WITH THAT PARTICULAR ERROR AND SUBTEST. 
319 A DESCRIPTION OF THE TEST FOUND IN THE PROGRAM LISTING 
320 WILL ALSO PROVIDE THE OPERATOR WITH INFORMATION ON THE LOGIC 
321 AND FUNCTIONS BEING TESTED. 
333 EVERY ERROR REPORT ALSO TYPES AN ERROR MESSAGE 
324 GIVING A VERBAL DESCRIPTION OF THE ERROR THAT HAS 
525 BEEN DETECTED. 
397 BY USING THE COMMENTS AND TEST DESCRIPTION FOUND IN 
328 THE PROGRAM LISTING TO DETERMINE WHAT FUNCTION OR 
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LOGIC WAS BEING TESTED, THE OPERATOR CAN THEN REFER 
TO THE ENGINEERING DRAWINGS TO ISOLATE THE PROBABLE 
CAUSE FOR THE FAILURE. 


SAMPLE ERROR REPORT 


BELOW IS AN EXAMPLE OF AN ERROR WHICH a HAVE 
OCCURRED DURING EXECUTION OF THE PROGRAM 


MEM. MGMT. REG. BITS NOT SET CORRECTLY 
REGISTR WROTE AD READ- (BINARY) 

ADDRESS (OCTAL) (OCTAL) 5432109876543210 TESTNO ERRORPC 
177572 040000 060000 0110000000000000 000012 022060 


WE SEE THAT THE ERROR OCCURRED IN TEST 12 AT LOACTION 
022060. THE ‘'REGISTR ADDRESS" ' TELLS US THAT WE WERE 
TESTING MEMORY MANAGEMENT'S STATUS RGISTER 0 (SRO). 

iN THE LISTING, THE TEST DESCRIPTION SAYS THAT THE 
ERROR BITS (BITS <15:13>) OF SRO WERE BEING SET AND 
CLEARED pad Ve ge HP THE ERROR REPORT SAYS WE TRIED 
TO SET BIT 14 BY WRITING *'040000°" TO SRO BUT WHEN WE 
READ IT BACK WE READ 960000"". IT APPEARS THAT BIT 13 IS 
STUCK AT ‘1’ OR IT IS GETTING SET WHEN BIT 14 IS SET 
TO *I"*. ERROR REPORTS BEFORE AND AFTER THIS ONE COULD 
TELL US WHICH IS THE CASE. 


MISCELLANEOUS INFORMATION 


z 
m 


THE PROGRAM IS FULLY ACT AND APT COMPATABLE 
AND IS SUPPORTED UNDER THE XXDP PACKAGE. 


END=OF =PASS MESSAGE 


AT THE END OF EACH PASS OF THE PROGRAM THE PASS NUMBER 
AND TOTAL NUMBER OF ERRORS SINCE THE LAST END-OF-PASS ARE 
REPORTED IN THE END-OF-PASS MESSAGE. FOR EXAMPLE: 


END OF PASS #2 TOTAL ERRORS SINCE LAST REPORT 0 


THAT WOULD INDICATE THAT PASS TwO WAS JUST COMPLETED 
AND NO ERRORS WERE DETECTED DURING THAT PASS. BOTH 
THE PASS NUMBER AND NUMBER OF ERRORS ARE DECIMAL NUMBERS. 


T=<BIT TRAPPING 


THE “"T=BIT’’ (BIT 4) _ IN THE PROCESSOR STATUS WORD IS SET 
BY AN 'RTI"' IN THE END-OF=PASS ROUTINE FOR EVERY OTHER “ra 
BEGINNING WITH THE THIRD PASS (PASSES 3,5,7,9...). T=BIT 
TRAPPING CAN BE INHIBITED BY SETTING Bl? ‘2 = 3 IN THE SWITCH 
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REGISTER (SEE SECTION 2.4). 
4.4 POWER FAILURE HANDLING 


IF A POWER FAIL OCCURS (FOLLOWED BY A ree UP), THE 
MESSAGE ‘POWER FAILURE=RESTARTING'’ IS TYPED OUT AND 
THE PROGRAM WILL RESTART EXECUTION AT ‘RESTRT:** 


4.5 PHYSICAL BUS ADDRESS CONSTRUCTION 


BELOW IS A SIMPLIFIED DIAGRAM OF HOW THE MEMORY 
MAMAGEMENT LOGIC CONSTRUCTS A PHYSICAL BUS ADDRESS 
USING THE VIRTUAL ADDRESS AND THE PAGE ADDRESS REGISTER. 
THE PAGE DESCRIPTOR REGISTER SELECTED WILL CONTAIN THE 
PAGE EXPANSION, LENGTH, AND ACCESS INFORMATION. 


12 11 10 09 08 07 06 05 04 03 02 01 90 


(ADDED TO) 
1§ 16 13 12 11 10 09 08 07 06 05 04 03 O02 01 00 


io 2.8 6:8 Oe tet ee 8 O 1/ 


PAR®* 


ne tt me eg bene Bene tm ene bh 


21 20 19 18 17 16 15 14 13 i2 11 10 09 08 07 06 05 04 03 02 Cl 00 


it @:42 3:8) 8-23 4.4 eee ee. ee 1 1 1 1 #1 O/ PBA 


*= VBA BITS <15:13> SELECT THE APPROPRIATE PAR AND PDR 
xx= PSwW MODE BIT 01 (BIT 15> SELECTS THE USER (=1) OR 
KERNEL (=0) SET OF PAR'S/PDR'S 


4.6 RELOCATION THROUGHOUT MEMORY 


A FEATURE WAS ADDED TO ALLOW THE CONSTRUCTION OF PHYSICAL 

BUS ADDRESSES ABOVE THE NORMAL 16K LIMIT. THE SETTING 

OF THE LOCATION $MADR1 IN THE E-TABLE WITH ONE OF THE 
FOLLOWING CONSTANTS WILL ACCESS LOCATIONS BETWEEN 60000 AND 
67600 OF EACH 16K GROUP UP TO THE MAXIMUM MEMORY ON THE SYSTEM. 
THE FIRST LOCATION OF EACH BLOCK(32 WORDS) IS WRITTEN AND READ. 
SEE TEST #25 IN THE LISTING FOR MORE DETAILS. 


CONST. MAX. MEM. CONST. MAX. MEM, CONST. MAX. MEM. 


0/600 16K 50600 656K 120600 1296k 
1600 32K 51600 672k 121600 1312k 
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441 2600 48k 52600 688K 122600 1328Kk 
, 442 3600 64K 53600 704K 123600 1344K 
443 4699 80K 54600 720K 124600 1360Kk 
| 444 6 96K 55600 736K 125600 1376K 
| 445 660 112K 56600 752K 12 1392k 
446 128k 57600 768K 127600 1408K 
| 44 10600 144K 60600 784K 130600 1424K 
| 448 11600 160k 61600 800k 131600 1440Kk 
449 12600 176K 62600 816K 132600 1456K 
450 13600 192K 63600 832K 133600 1472k 
451 14600 208K 64600 848k 134600 1488K 
452 15600 224K 65600 864K 135600 1504k 
453 16600 240K 66600 136600 1520k 
454 17600 256K 67600 896K 137600 1536K 
455 20600 272K 70600 912K 140600 1552k 
456 21600 288K 71600 928K 141600 1568Kk 
457 22600 304K 72600 944K 142600 1584K 
458 23600 320K 73600 960K 143600 1600K 
459 24600 336K 74600 976K 144600 1616K 
25600 352K 75600 992k 145600 1632K 
461 26600 368K 76600 100 146600 1648Kk 
462 27600 384K 77600 1024KkK 147600 1664K 
463 30600 400K 100600 150600 1680K 
31600 416k 101600 1056k 151600 1696K 
465 32600 432K 102600 1072K 152600 1712k 
466 33600 448K 103600 1088K 153600 1728K 
467 34600 464K 104600 1104Kk 154600 1744K 
468 35600 480K 105600 1120K 155600 1760K 
469 36600 496K 106600 1136K 156600 1776K 
470 37600 512K 107600 1152K 157600 1792k 
471 40600 528K 110600 1168K 160600 1808Kk 
472 41600 544K 111600 1184K 161600 1824Kk 
473 42600 560k 112600 1200Kk 162600 1840K 
474 43600 576K 113600 1216K 163600 1856K 
475 44600 592K 114600 1232K 600 1872k 
476 45600 608K 115600 1248K 165600 1888K 
477 46600 624K 116600 1264K 1 1904K 
oe 47600 640K 117600 1280K 167600 1920K 
480 
481 5.0 PROGRAM DESCRIPTION 
i ne eee Fe oct. eC im 
rf: $3 SUBROUTINES USED BY THIS PROGRAM 
486 
487 FOLLOWING IS A ge OF THE SUBROUTINES AND HANDLERS USED 
488 BY THIS PROGRAM THAT ARE NOT PROVIDED BY THE ‘‘SYSMAC 
489 PACKAGE"’. pty OF * SUBROUTINES UNIQUE TO THIS 
490 PROGRAM MAY BE FOUND IN T HE PROGRAM LISTING. REFER TO 
491 THE ‘‘SYSMAC'’ DOCUMENT AND PROGRAM LISTING FOR THE OTHER 
+38 ROUTINES. 
494 1. TURN OFF T=-BIT AND SAVE CURRENT PS'¥ 
495 2. TURN ON T=BIT AND RESTORE PREVIOUS PSW 
496 3. SET ALL WRITEABLE BITS IN ALL PAR/PDR‘S 
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4. READ AND COMPARE KERNEL AND USER PAR/PDR'S 
5. CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 


PROGRAM LISTING 


A TABLE OF CONTENTS APPEARS AT THE BEGINNING OF THE LISTING 
WHICH CONTAINS THE NAMES OF EACH SECTION, SUBTEST, AND 
7 gy AND THE LINE NUMBERS CORRESPONDING TO THE START OF 


FOLLOWING THIS SECTION OF DOCUMENTATION IS THE ACTUAL 
PROGRAM LISTING COMPLETE WITH SUBTEST DESCRIPTIONS AND 
“CODING COMMENTS'’. 


USING THE PROGRAM TO DIAGNOSE A FAULT 


WHEN AN ERROR OCCURS, ONE OF THE THINGS THAT‘S IMPORTANT 

TO NOTE IS WHAT PASS THE ERROR OCCURRED ON. IF THE PASS 
NUMBER IS ODD AND IS THREE OR GREATER, THE ERROR MIGHT BE 
T-BIT SENSITIVE. TRY RUNNING THE PROGRAM AGAIN WITH BIT 

12 OF THE SWITCH REG. EQUAL TO ‘'l’’ TO INHIBIT T-BIT 

TRAPPING. IF THE PASS NUMBER IS GREATER THAN ONE, THE 

ERROR MAY BE ITERATION SENSITIVE. TRY RUNNING THE PROGRAM 
AGAIN WITH BIT 11 OF THE SWITCH REG. EQUAL TO °'I"* TO INHIBIT 
ITERATIONS. THESE HINTS SHOULD HELP YOU DETERMINE WHAT MAKES 
THE MACHINE FAIL AND WHEN. 


IF YOU HAVE BEEN RUNNING WITH BIT 15 OF THE SWITCH 

REG. EQUAL TO ‘0"’, THEN YOU ARE ABLE TO LOOK AT ALL 

THE ERRORS THAT MAY BE RELATED TO THE FAULT YOU ARE 
DIAGNOSING. A FAULT IN AN EARLIER TEST MAY RESULT IN 
ERRORS DURING LATER TESTS WHICH MAY GIVE YOU MORE 

CLUES ABOUT THE NATURE OF THE FAULT. NOW USE THE METHOD 
OUTLINED IN SECTION 3.2 FOR EACH ERROR TO GATHER AS 
MUCH INFORMATION AS POSSIBLE. 


NOW TO get Bi IDEAS ON THE CAUSE OF THE FAILURE, 

YOU MAY T TO SCOPE THIS ERROR CONDITION. SET BIT 09 
OF THE SWITCH REG. EQUAL TO ‘‘l’' TO LOOP ON THE ERROR. 
FOR AN EVEN TIGHTER SCOPE LOOP THE ERROR CALL CAN BE 
REPLACED WITH A BRANCH (REFER TO COMMENTS BY ERROR CALLS 
IN THE PROGRAM LISTING). 


OR YOU COULD LOOP ON THE TEST BY EITHER SETTING BIT 14 

OF THE SWITCH REG. EQUAL TO ‘‘l'' OF BY SETTING BIT 08 OF THE 
SWITCH REG. EQUAL TO ‘'l’’ AND THEN AN, ony THE TEST NUMBER 
IN BITS 07-00 OF THE SWITCH REG. YOU WILL PROBABLY WANT TO 
inae ior TYPEOUTS BY SETTING BIT 135 OF THE SWITCH REG. 
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SEQ 001¢ 


-TITLE CJKDADO KTF11-AA MMU DIAG 
:*COPYRIGHT (C) AUGUST, 1980 
:*DIGITAL EQUIPMENT CORP. 

; *MAYNARD , MASS. 01754 


« eTHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC-C3), JAN 19, 1977. 


:SBTTL OPERATIONAL SWITCH SETTINGS 


15 HALT ON “ha 

14 LOOP ON TEST 

13 INHIBIT ERROR TYPEOUTS 
1¢ INHIBIT TRACE TRAP 
10 
9 


INHIBIT ITERATIONS 
BELL ON ERROR 
LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 


* ee eP eee ES 


* SBTTL BASIC DEFINITIONS 


s* INITIAL ADDRESS OF THE STACK PCINTER *** 1100 *** 
STACK= 1100 


-EQUIV EMT,ERROR 
EQUIV 


;;BASIC DEFINITION OF ERROR CALL 
IOT, SCOPE 7;BASIC DEFINITION OF SCOPE CALL 


; #MISCELLANEOUS DEF INITIONS 
11 ::CODE FOR HORIZONTAL TAB 


Fe 12 ;;CODE FOR LINE FEED 

CR= 15 :;CODE FOR CARRIAGE RETURN 

CRLF= 200 :;CODE FOR CARRIAGE RETURN-LINE FEED 
= 177776 3;:PROCESSOR STATUS WORD 


3:STACK LIMIT REGISTER 


PIRQ= 177772 ; «PROGRAM INTERRUPT REQUEST REGISTER 

DSWR= 177570 ;HARDWARE SWITCH REGISTER 

DDISP= 177570 > HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER eee deel 

RO= 40 ;;GENERAL REGISTER 

R1i= hl oe RAL REGISTER 

R2= he ;;GENERAL REGISTER 

R3= 43 3 REGISTER 

R4= 44 ;;GENERAL REGISTER 

R5= Se) ;;GENERAL REGISTER 

R6= 46 ; s GENERAL REGISTER 

R7= a7 :GENERAL REGISTER 

SP= %6 ::STACK POINTER 

PC= a7 ;;PROGRAM COUNTER 


;*PRIORITY LEVEL DEFINITIONS 
PRO= 0 


PRI= 40 


:;PRIORITY LEVEL 9 
;;PRIORITY LEVEL 1 


—_——- 


ae wr eee wm Ce eee ee — —<- —— oo —_—a — 


N 1 
CJKDADO KTF11=AA MMU DIAG MACY11 30A4(1052) 14-JAN-81 11:36 PAGE 13 


CJKDAD P11 19=DEC-80 11:05 BASIC DEFINITIONS SEQ 0013 
00 PR2= 100 : PRIORITY LEVEL 2 
610 000140 PR3= 140 ::PRIORITY LEVEL 3 
611 200 PR4= 2 ::PRIORITY LEVEL 4 
ol¢ 000240 PR5= 240 ::PRIORITY LEVEL 5 
61 = 00 ::;PRIORITY LEVEL 6 
ois 000340 PR7= 340 :;PRIORITY LEVEL 7 
616 :*''SWITCH REGISTER’’ SWITCH DEFINITIONS 
617 100000 SwW15= 
618 040000 SW146= 40000 
619 620000 Swi3= 20000 
620 010000 SWi2= 10000 
621 004000 Sw11= 
622 002000 Sw10= 2000 
623 001000 swo9= 1000 
624 000400 SwO8= 00 
625 00200 SwO7= 200 
626 000100 SwO6= £100 
627 000040 = 60 
628 000020 Sw04= 20 
6 000010 SwO3= 10 
000004 SwO2= 4 
631 000002 Sswol= 2 
632 000001 wOO= 
635 -EQUIV SWO9,SW9 
-EQUIV SWO08,SW8 
635 UIV SWO7,SW7 
EQUIV SW06,SW6 
637 -EQUIV Sw05,SW5 
EQUIV SWO04,SW4 
639 EQUIV SW03,SW3 
641 -EQUIV SwWO1,SW1 
oe -EQUIV SWw00,SWO 
644 :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
645 100000 BIT15= 
646 040000 BIT14= 40000 
647 020000 BIT13= 20000 
648 010000 BIT12= 10000 
649 004000 BIT11= 
650 002000 BIT10= 2000 
651 1000 BITO9= 1000 
65 000400 BITO8= 400 
65 000200 BITO7= 200 
00100 BITO6= 100 
655 000040 BITO5= 40 
656 000020 BIT04= 20 
657 000010 BITO3= 10 
658 0004 BITO2= 4 
659 000002 BITO1= 2 
0001 BITOO0= 
661 -EQUIV BITO 


me ee eee - ee » 
- — ease — = - 
a LF — + 
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CJKDAD.P11 19=DEC-80 11:05 BASIC DEFINITIONS SEO 0014 
665 EQUIV BITOS,BITS 
68, “EQUIV BITO4,BIT4 
667 -EQUIV B1T03,BIT3 
668 “EQUIV BIT02,BIT2 
669 “EQUIV 8!T01,BIT 
670 "EQUIV BITOO.BITO 
672 z *BAS IC "CPU'* TRAP VECTOR ADDRESSES 
673 0 ERRVEC= 4 OUT AND OTHER ERRORS 
674 000010 RESVEC= 1 : 3RESERVED AND ILLEGAL INSTRUCTIONS 
675 000014 TBITVEC=14 ::''T'' BIT 
676 000014 TRTVEC= 14 >: TRACE TRAP 
677 000014 BPTVEc= 14 * :BREAKPOINT TRAP (BPT) 
678 000020 IOTVEC= 2 >: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
679 000024 VEC= 2 = :POWER FAIL 
680 000030 EMTVEC= 30 : 3 EMULATOR TRAP (EMT) **ERROR** 
681 000034 TRAPVEC=34 :""TRAP'' TRAP 
682 000060 TKVEC= 60 “TTY KEYBOARD VECTOR 
683 00 TPVEC= 64 si TTY PRINTER VECTOR 
684 000240 PIRQVEC=240 ROGRAM INTERRUPT REQUEST VECTOR 
685 _SBTTL MEMORY MANAGEMENT DEFINITIONS 
687 :*KT11 VECTOR ADDRESS 
689 000250 MMVEC= 250 
691 :*KT11 STATUS REGISTER ADDRESSES 
693 177572 SRO= 177572 
694 177574 SR1= 177574 
695 177576 SR2= 177576 
$96 172516 SR3= 172516 
638 :*USER ‘'I'' PAGE DESCRIPTOR REGISTERS 
700 177600 UIPDRO= 177600 
701 177602 UIPDR1= 177602 
702 177604 UIPDR2= 177604 
703 177606 UIPDR3= 177606 
704 177610 UIPDR4= 177610 
705 177612 UIPDR5= 177612 
706 177614 UIPDR6= 177614 
707 177616 UIPDR7= 177616 
108 :*USER ‘'I'’ PAGE ADDRESS REGISTERS 
711 177640 UIPARO= 177640 
712 177642 UIPAR1= 177642 
713 177644 UIPAR2= 177644 
714 177646 UIPAR3= 177646 
715 177650 UIPAR4= 177650 
716 177652 UIPARS= 177652 
717 177654 UIPAR6= 177654 
718 177656 UIPAR7= 177656 
720 :*KERNEL ‘'I'’ PAGE DESCRIPTOR REGISTERS 


es —= -— - —_ _ —_—=- ee eee re —- a 
. ee 
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MEMORY MANAGEMENT DEFINITIONS 


| CJKDAD.P11 19=DEC=80 11:05 
| 721 


722 172300 KIPDRO= 172300 

172302 KIPDR1= 172302 

172304 KIPDR2= 172304 

172306 KIPDR3= 172306 

172310 KIPDR4= 172310 

172312 KIPDR5= 172312 

172514 KIPDR6= 172314 

172316 KIPDR7= 172316 

> *KERNEL ‘‘I’' PAGE ADDRESS REGISTERS 

172340 KIPARO= 172340 

172342 KIPAR1= 172342 

172344 KIPAR2= 172544 

172346 KIPAR3= 1725346 

172350 KIPAR4= 172350 

172352 KIPAR5= 172352 

172354 KIPAR6= 172354 

172356 KIPAR7= 172356 
-EQUIV SP,KSP 
-EQUIV SP,USP 
-EQUIV BIT4,TBIT 
-EQUIV BIT6,WBIT 

001100 KERSTK= STACK 

000700 USESTK= STACK=200 


;*ADDITIONAL DEFINITIONS 


-SBTTL TRAP CATCHER 


000000 =Q 
:*ALL UNUSED LOCATIONS ‘2UM 4 - 776 CONTAIN A ‘*.+2,HALT"' 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT S 
000176 ; *LOCATION I CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000174 000000 DISPREG: WORD 0 ::SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: ;;SOFTWARE SWITCH REGISTER 


-WORD QO 
~SBTTL STARTING ADDRESS(ES) 
@ASTAR 


000200 000137 020000 T ;;JUMP TO STARTING ADDRESS OF PROGRAM 
o SBT EL ACT 11 HOOKS 


FPR RRR EREERRERAREEREREEER ERE EERE REKEERE RARER A RARER RRR E ES 


sHUOKS REQUIRED BY ACT11 


.SBTTL APT PARAMETER BLOCK 


SRE REE EERE RARER EERE ERE ER EERE EERE RE RRR A ES ERRORS 








000204 SSVFC=. SAVE PC 

000046 6 
000046 es SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 600000 WORD 0 thet 1 LOC.52 TO ZERO 

000204 =$SVPC RESTORE PC 


SEQ 001% 
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CJKDAD P11 


000024 
000044 
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T PARAMETER BLOCK 
ss LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


{EERE ERRATA REE ER Re 
- $X=. 3:SAVE CURRENT LOCATION 
~=24 ::SET POWER FAIL TO POINT TO START OF PROGRAM 
200 : FOR APT START UP 
=44 sPOINT TO APT INDIRECT ADDRESS PNTR. 
$APTHDR ::POINT TO APT HEADER BLOCK 
-=.$X  ;;RESET LOCATION COUNTER 
SISO IISIOIIOIOISIOICIOICISICIOIOIOIOIUIOIOIOIOIOIC TOIT TOTTI TOT TT TATA ASSIS SAS IAS SAAN 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 


$APTHD: 

$HIBTS: .WORD 
$MBADR: .WORD 
$TSTM: .WORD 14 
$PASTM: .WORD 20 
SUNITM: WORD 


SEQ 0016 


:;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

Stooge 5 OF APT MAILBOX (BITS 0-15) 

;:RUN TIM OF LONGEST TEST 

ae Hh IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

5 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
$ETEND~SMAIL/2 3; ;LENGTH MAILBOX~E TABLE (WORDS) 


| 
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SEQ 001/ 
-SBTTL COMMON TAGS 


SS RRARAAAARARERAAARAARAAEAHAAEARAAAREAAEAAAAARAEHAAARAEAAAAERAAEEARAAA AES 


;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 





001100 -=1100 
001100 SCMTAG: 3sSTART OF COMMON TAGS 
001100 000000 -WORD 0 
001102 000 S$TSTNM: .BYTE QO ;;CONTAINS THE TEST NUMBER 
001103 000 SERFLG: .BYTE 0 ;; CONTAINS ERROR FLAG 
001104 000000 S$ICNT: .WORD Q ;;CONTAINS SUBTEST ITERATION COUNT 
001106 000000 $LPADR: .WORD 0 ;sCONTAINS SCOPE LOOP ADDRESS 
001110 000000 $LPERR: .WORD OQ ;;CONTAINS SCOPE RETURN FOR ERRORS 
001112 000000 SERTTL: .WORD 0Q ;;CONTAINS TOTAL ERRORS DETECTED 
001114 000 SITEMB: .BYTE 0 :s CONTAINS ITEM CONTROL BYTE 
001115 001 ERMAX: .BYTE 1 ONTAINS MAX. ERRORS PER TEST 
001116 000000 SERRPC: .WORD 0 ::CONTAINS PC OF LAST ERROR — 
001120 000000 $GDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘GOOD’ DATA 
601122 000000 $BDADR: .WORD 0 ;;CONTAINS ADDRESS a "BAD* DATA 
001124 000000 $GDDAT: .WORD Q ;sCONTAINS ‘GOOD’ DAT 
001126 000000 $BDDAT: .WORD 0Q :sCONTAINS ‘BAD* DATA 
001130 «WORD 0 > :RESERVED--NOT TO BE USED 
001132 09000 -WORD Q 
001134 000 $AUTOB: .BYTE 0 AUTOMATIC MODE INDICATOR 
001135 000 $INTAG: .BYTE 0 ;2 INTERRUPT MODE INDICATOR 
001136 0000 -WORD 0 
001140 177570 : -WORD DSWR 7 ADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP : ADDRESS OF DISPLAY REGISTER 
001144 177560 TKS: 177560 3s TTY KBD STATUS 
001146 177562 $TKB: 177562 ::TTY KBD BUFFER 
001150 177564 $TPS: 177564 zz TTY PRINTER STATUS REG. ADDRESS 
007152 7566 $TPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
001154 000 $NULL: .BYTE 0 7: CONTAINS NULL CHARACTER FOR FILLS 
001155 002 SFILLS: .BYTE 2 :sCONTAINS # OF A ue CHARACTERS . 
001156 O12 $FILLC: .BYTE 12 + INSERT FILL CHARS. AFTER A ‘LINE F 
001157 000 STPFLG: .BYTE 0 ;""TERMINAL AVAILABLE’ FLAG (BIT<07>=0=rES) 
001169 000000 SREGAD: . 0 2: CONTAINS THE ADDRESS FROM 
WHICH ($REGO) WAS OBTAINED 

001162 0000 $REGO: .WORD 0 ZICONTAINS (($RFGAD) +0) 

11 000000 $REG1: .WORD OQ :;CONTAINS (($REGAD) +2) 
CO1166 000 $REG2: .WORD 0 ;: CONTAINS ((S$REGAD) +4) 
001170 000000 $REGS: .WORD 0 ::CONTAINS ((SREGAD) +6) 
001172 000000 $REG4: .WORD OQ 7; CONTAINS (($REGAD) +10) 
001174 $REG5: .WORD QO 3: CONTAINS (($REGAD) +12) 
001176 000000 $TMPO: .WORD 0 ;sUSER DEFINED 

1200 $TMP1: .WORD 0 ;;USER DEFINED 
001202 000000 $TMP2: .WORD 0 ;;USER DEFINED 
0012 000000 $TMP5: .WORD QO ;sUSER DEFINED 
001 000000 $TMP4: .WORD 0 :;USER DEFINED 
001210 000000 $TMP5: .WCRD 0Q : SUSER DEF INED 
001212 0 0 $TIMES: O NUMBER OF ITERATIONS 
001214 0 $ESCAPE :0 ST ESCAPE ON ERROR ADDRESS 
001216 177607 000377 ELL: .ASCIZ <i iii $3 CODE FOR BELL 
001222 077 $QUES: .ASCII /?/ sQUESTION MARK 
001223 015 $CRLF ASCII <15> >: CARRIAGE RETURN 
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852 001224 000012 SLF: eASCIZ <12> s;LINE FEED 
853 SF RRAAAAAERERAAAARAAAARAAAAARAAAAAAARAAAAARAERAKAAAAARE HERA AAA AS 
See .SBTTL APT MAILBOX-ETABLE 
856 SSO UII IOISIIOICIIOISIIIISISIUIDIDIOISIOIUIOIIOIUIDIOIUICIIOIIIIOIIOIUIOIUIOIOIIOIIOIOIT Tn 
857 EVEN 
858 001226 SMAIL: :;APT MAILBOX 
859 001226 000000 S$MSGTY: .WORD AMSGTY : =MESSAGE TYPE CODE 
860 4230 000000 S$FATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
861 001232 000000 $TESTN: .WORD ATESTN' ;; TEST NUMBER 
862 1234 000000 $PASS: .WORD ASS ::PASS COUNT 
863 1236 000000 $DEVCT: .WORD ADEVCT ;;DEVICE COUNT 
Bé4 001240 000000 SUNIT: .WORD UNIT  3::1/0 UNIT NUMBER 
865 001242 000000 $MSGAD: .WORD AMSGAD ::MESSAGE ADDRESS 
866 001244 000000 $MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
867 001246 SETABLE: :;APT ENVIRONMENT TABLE 
868 001246 000 SENV: -BYTE AENV s sENVIRONMENT BYTE 
869 001247 000 SENVM: .BYTE ENVM : ;ENVIRONMENT MODE BITS 
870 1250 0 $SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
871 ©601252 000000 SUSWR: .WORD AUSWR ;;USER SWITCHES 
872 001254 000000 $CPUOP: .WORD ACPUOP PU TYPE, Ai 
873 :* BITS itt | CPU TYPE 
874 :* 1/04=01, BIAS cay Z 11/20=03,11/40=04,11/45=05 
875 :* 11770206. P Q=07,0=10 
876 :* BIT 1O=REAL TIME CLOCK 
877 7* BIT 9=FLOATING POINT PROCESSOR 
878 :* BIT 8=MEMORY MANAGEMENT 
879 001256 000 SMAMS1: .BYTE AMAMS1 : HIGH ADDRESS.M.S. BYTE 
880 001257 000 $MTYP1: .BYTE AMTYP1 ;::MEM. TYPE SBLKA 
881 ;* MEM. TYPE BYTE -- (HIGH BYTE) 
882 ;* 900 NSEC CORE=001 
883 :* 300 NSEC BIPOLAR=002 
884 ;* 500 oT i io 
885 001260 000000 $MADR1: .WORD AMADR1 = ;;HIGH ADDRESS.BL 
886 :* MEM.LAST ADDR. “<i BYTES. THIS WORD AND LOW OF ‘‘TYPE’* ABOVE 
887 001262 $E TEND 
poe -MEXIT 
890 001262 000000 TESTNO: .WORD 0 sHOLDS TEST NUMBER FOR TYPEOUTS 
891 001264 WASR6: .WORD 0O “USED TO STORE THE STACK POINTER AFTER A TRAP 
892 001266 000000 TRAPPC: .WORD 0 =USED TO STORE THE PC OF A TRAP OR ABORT 
893 001270 TRAPPS: .WORD 0 “USED TO STORE THE PS OF A TRAP OR ABORT 
894 001272 WASSRO: .WORD 0 “USED TO STORE CONTENTS OF SRO 
895 001274 000000 WASSR2: .WORD 0 “USED TO STORE CONTENTS OR SR2 
896 001276 000000 TBITPS: .WORD 0 = SAVES THE PSW THAT MAY HAVE ITS T-BIT ON 
897 001300 000000 ANDADR: .WORD 0 =HOLDS RESULT OF ADDRESSES BEING AND-ED 
898 001302 ORADR: .WORD 0 HOLDS RESULT OF naa a Ss BEING OR-ED 
899 1304 00000 T .- WORD 0 HOLDS NUMBER OF TIME-OUTS 
900 001306 000000 VIRT1 .- WORD 0 : HOLDS VIRTUAL ADDRESS TO BE CONVERTED 
901 001310 00000 VIRT2: .WORD 0 
902 001312 000000 PBALO » WORD 0 “HOLDS BITS <15:00> OF PHYSICAL ADDRESS 
903 001314 000000 PBAH] . WORD 0 “HOLDS BITS <17:16> OF PHYSICAL ADDRESS 


ewe ee 2 eae ee 
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pee .SBTTL ERROR POINTER TABLE 
906 :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN _ 
907 **THE INFORMATION IS OBTAINED BY USING THE INDEX te F OUND 
908 =*LOCATION $1TEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
909 :*NOTE1: IF S$ITEMB IS O THE ONLY PERTINENT DATA IS (S$ERRPC) 
4 = *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
912 3* EM :;POINTS TO THE ERROR MESSAGE 
913 3* DH ::POINTS TO THE DATA HEADER 
914 7* DT ::POINTS TO THE DATA 
5 a DF ::POINTS TO THE DATA FORMAT 
917 
918 001316 SERRTB: 
Wg 
920 s* ITEM 1 
921 001316 041162 EM1 sUNEXPECTED CPU TRAP TO LOC. 004 
922 001320 044253 DH1 *OLD PC OLD PSW R6 WAS TESTNO ERRORPC 
923 601322 047460 DT1 : TRAPPC, TRAPPS, WASR6, TESTNO, SERPPC, 
ase 001324 050270 DF1 :0,0,0,0.0 
926 :* ITEM 2 
927 001326 041222 EM2 sUNEXPECTED MEM. MGMT. TRAP TO LOC. 250 
928 001330 044323 DH2 OLD PC OLD PSW R6 WAS’ SRO SR2 TESTNO ERRORPC 
929 001332 047474 DT2 TRAPPC, TRAPPS, WASR6, WASSRO, WASSR2, TESTNO, SERRPC, 
oe 001334 050275 DF2 -0,0,0.0,0,0.0 
932 :* ITEM 3 
933 001336 041271 EM3 :PRIORITY BITS SET WRONG IN PSW 
934 001340 044413 DH3 “WROTE READ TESTNO ERRORPC 
935 001342 047514 DT3 = $REGO, S$REG1, TESTNO, SERRPC 0 
eae 001344 050304 DF3 70,0,0,0 
938 ss ITEM 4 
939 001346 041530 EM4 :MODE BITS SET WRONG IN PSW 
940 001350 044413 DH3 “WROTE READ TESTNO ERRORPC 
941 001352 047514 DT3 = $REGO, $REG1. TESTNO, SERRPC 0 
ars 001354 050304 DF3 70,0,0.0 
944 :*ITEM 5 
945 001356 041363 EMS sDUAL ADDRESSING ay HI&LO BYTES OF PSW 
946 001360 044413 DH3 *WROT E READ TEST ERRORPC 
947 001362 047514 DT3 = $REGO, $REG1, TESTNO, SERRPE. 0 
7 001364 050304 DF3 70,0,0.0 
950 >*ITEM 6 
951 001366 041436 EM6 :KERNEL R6 CHANGED BY WRITING USER R6 

2 001370 044413 DH3 *WROT E READ TESTNO ERRORPC 
953 001372 047514 DT3 = $REGO, $REG1, TESTNO, SERRPC.0 
eee 001374 050304 DF 3 70,0,0,0 
956 zx ITEM 7 
957 001376 041503 EM7 A MEMORY MGMT. REG. TIMED OUT 

001400 044453 DH7 : ADDRESS TESTNO ERRORPC 


958 
959 001402 047526 DT7 > $REGO, TESTNO, SERRPC .0 
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1001 


88 


SESE 


COoo°C°ooO 
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MEAN © 


001404 


001406 
001410 
001412 
001414 
001416 
001420 
001422 
001424 


001426 
001430 


001456 
001460 


001462 
001464 


001466 
001470 
001472 
001474 
001476 
001500 


001502 
001504 
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050370 


041541 
044503 
047536 
050315 
041605 
044603 
047552 
050320 
041645 
044723 
047566 
050325 
041714 
050335 
041751 
050335 
042004 
044723 
047566 
050325 
042060 
045113 
047614 
050336 
042122 
045213 


047632 
050344 
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:*ITEM 13 
E 


DF7 
:* ITEM ,™ 


>* ITEM 11 
EM11 


DH11 


DT11 
DF11 


:*ITEM 12 
EM12 


DH12 


DTi2 
DF12 


:*ITEM 15 
EM15 


DH12 


DT12 
DF12 


s* ITEM 16 
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:0,0,0 


; SUMMARY OF MEM. MGMT. REG. TIMEOUTS 
sREGISTER-ADDRS NUM. OF 

:AND-ED OR-ED TIMOUTS TESTNO ERRORPC 
: ANDADR ,ORADR . , TONUM, TESTNO, SERRPC ,0 


cREGISTR RE Pade pop ad ° cataeain he 
SADDRESS (OCTAL) BF 39109876543210 TESTNO ERRORPC 
> $REGO, $REG1,$REG1, TESTNO, SERRPC ,0 


Ps e e e , 


:MEM. MGMT. REG. BITS NOT SET CORRECTLY 

=REGISTR WROTE READ READ 

SADDRESS (CCTAL) (OCTAL) (BINARY) TESTNO ERRORPC 
: SREGO, $REG1 , SREG2,$REG2, TESTNO, SERRPC ,0 


e a a e o a 


: SRO EFFECTED BY WRITE 70 PSW 
;READ TESTNO ERRORPC 
:$REGO, TESTNO, SERRPC 0 


e g s 


¢ SRI DID NOT READ ALL = 
; READ TESTNO ERRORPC 
; $REGO, TESTNO, SERRPC ,0 


;DUAL ADDRESSING BETWEEN BYTES OF PAR OR PDR 
SREGISTER WROTE READ READ 

ZADDRESS (OCTAL) (OCTAL) (BINARY) TESTNO ERRORPC 
:$REGO, $REG1, SREG2, $REG2, TESTNO, SERRPC ,0 


-Ve e oO ° ? 


an OR PAR PDR BETWEEN PAR-PDR'S 
: CLEARED EFFECTD EXPECTD RECEIVD TESTNO ERRORPC 
$REGO, $REG1 , SREGS , SREG2, TESTNO, SERRPC ,0 


e a os e ge e 


:PHYS. “ge FORMED READ WRONG 

sPHYSICAL VIRTUAL 

“ADDRESS ADDRESS KIPAR4 TESTNO ERRORPC 
;PBALO, VIRT1,$REG4, TESTNO, SERRPC ,0 


Ps o e a ° 


SEQ 0020 


| 
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SESSASESESZ 
RHO VOONOUSWW HO OOBNAUFEW 


GISRRRFRREES 


SS 
—Ono 


& 


042160 
045305 


047646 
050351 
042232 
045431 
047670 
050361 
042267 
045511 
047702 
050365 
0425326 
050372 
042572 
050375 
042432 
050375 
042475 
050375 
042545 
045700 
047740 
050375 
042614 


050401 
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sx ITEM 21 
E 


s* ITEM 23 
E 


ee ee ee SN = 
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DH21 


DT21 
DF21 


s*ITEM 22 
EM22 


DH22 


DT22 
DF 22 
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:PHYS. ADDR. haa ‘a WRONG IN RELOCATE MODE 
“ADDRESS VBA 


R 5 
;PBALO,VIRT1, viRT?-$ $REG4, SREGS, STMPO, TESTNO. SERRPC 


:3,0,0,0,0,0,0,0 


;W-BIT DID NOT add SET IN PDR 
PDR VIRTU 


TESTED ADDRESS TESTNO ERRORPC 
7 $REG5S,SREG3, TESTNO, SERRPC 0 


Ps a e ’ 


;W-BIT SET IN MORE THAN ONE PDR 
:PDR IN PDR VIRTUAL 

sERROR TESTED ADDRESS TESTNO ERRORPC 
: $REGO, $REGS ,$SREG3, TESTNO, SERRPC ,0 


Ps e é eo ¢ 


7W=BIT NOT CLEARED BY WRITING TO PDR 
;PDR TESTNO ERRORPC 
> $REG5S, TESTNO, SERRPC ,0 


Ps e ’ 


:WRITING SRO SET W-BIT IN KIPDR7 
:PDR WAS EXPECTD TESTNO ERRORPC 
‘REGS. $REG1, TESTNO, SERRPC .0 


Ps ca e e 


;W-BIT GOT SET DURING TIMEOUT ABORT 
=PDR WAS EXPECTD TESTNO ERRORPC 
:$REG2,$REG1, TESTNO, SERRPC .0 


e dl e co 


a aw a ACCESS ABORT DID NOT OCCUR 
PDR 4 TESTNO ERRORPC 
; $REG2, STMPO, TESTNO,SERRPC ,0 


ares ERROR DID NOT ABORT INSTRUCTION 
R4  PSW TESTNO ERRORPC 
*SREG2, STMPO, TESTNO, SERRPC .0 


;SRO DID NOT tg oe ERROR CORRECTLY 
:SRO WAS EXPECTD PDR PSwW TESTNO ERRORPC 
sWASSRO, SREGS, . SREG2, STMPO. TESTNO, SERRPC .0 





SEQ 0021 


TESTNO 
C,0 


| 
| 
| 


SL LS ca 
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1096 


S333s 


— — —) 
oO 
WN 


a a a ee ee ee feet 


MOMONEAONONONDNY - 3 A PS OS OO OOO 


001674 


001676 
001700 
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080378 


043077 


0 
050375 


043155 
046420 


050104 
050401 


043222 
046535 
050122 
050375 


043271 
046560 
050072 
050375 
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ss ITEM 31 


:*ITEM 36 
EM31 
DH36 
DT36 
DF 24 
:* ITEM 37 


zs ITEM 42 


eee 


— ee ae 
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SEQ 0022 


:SR2 DID NOT LOCKUP CORRECT VIRTUAL ADDR. 
:SR2 WAS EXPECTD PDR S TESTNO ERRORPC 
:WASSR2, $REG4, $REG2, $TMPO, TESTNO, SERRPC ,0 


Ps a ¢ eo e ¢ 


Ay —_ ~ + li OCCURRED WHEN IT SHOULDN'T HAVE 
KIPDR4 SRO WAS SR2 WAS TESTNO ERRORPC 
: $REGO, SREGS, WASSRO ,WASSR2, TESTNO, SERRPC .0 


:0, e ¢ eo é 


;PAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE 
V.B.A. KIPDR4 TESTNO ERRORPC 
: SREGO, $REG4,, TESTNO, SERRPC ,0 


Ps e a e 


:SRO DID NOT REPORT PAGE LGTH. ABORT CORRECTLY 
:V.B.A. KIPDR4 SRO WAS EXPECTD TESTNO ERRORPC 
: $REGO, SREG4, WASSRO,SREG2, TESTNO, SERRPC 0 


Ps 0, e ° e 


:SR2 DID NOT LOCKUP CORRECT VIRUAL ADDR. 
7V.B.A. KIPDR4 SR2 WAS EXPECTD TESTNO ERRORPC 
tee OY -WASSR2, SREGS, TESTNO, SERRPC ,0 


:SR2 DID NOT LOCKUP CORRECT VIRUAL ADDR. 
:SR2 WAS EXPECTD TESTNO ERRORPC 
WASSR2,$REG1, TESTNO, SERRPC ,0 


e e ewe 


:SRO OR SR2 CHANGED BY A ane ABORT 
: SECOND ABOR 


SRO WA 5 SR. WAS TESTNO ERRORPC 
:$THPO. WE -WASSRO, WASSRD. TESTNO, SERRPC ,0 


7SRO OR SR2 WAS NOT ‘RESET’ BY A RESET 
:SRO WAS SR2 WAS TESTNO ERRORPC 
: WASSRO WASSRO. TESTNO. SERRPC .0 


70,0,0,0 


:SR2 +e TRACKING CORRECTLY 
>SR2 WAS EXPECTD TESTNO ERROPC 
SWASSR2- $REG1, TESTNO, SERRPC .0 


2 eee eee ee ee wee 


es —— eee nes. ee eee 


OE A eee eee a a eee _— 
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CJKDAD.P11 19-DEC~B0 Th: 05 ERROR POINTER TABLE SEQ 0025 


DID NOT TRAP THRU KERNEL SPACE 


at 
ott 
™m 
Oo 
3 | 
wb 
™N 
nN 
Oo 
R 
GW 
WN 
™m 
&* 
rm 
é 
Nm 


1129 001730 046575 DH42 PSW WAS R6 WAS TESTNO ERRORPC 

1130 001732 050134 DT42 ‘GREG. $REG2 TESTNO, SERRPC ,0 

135 001734 050375 DF 24 | 70,0,0,0 

1135 sx ITEM 43 

1134 001736 0433635 EM43 :KT ERROR NOT SERVICED ON TIMEOUT ERROR 

1135 001740 045610 DH23 :PDR TESTNO ERRORPC 

1136 001742 047716 DT23 : $REGS, TESTNO, SERRPC,0 

a 4 001744 050372 DF 23 :0,0,0 

1139 se] TEM 44 

1140 001746 043432 EM44 :SRO OR SR2 CHANGED BY TIMEOUT ERROR 

1141 001750 046635 DH44 s EXPECTED RECEIVED 

1142 3: SRO SR SRO WAS SR2 WAS TESTNO ERRORPC 
1143 001752 050146 DT44 * $REGO,$REG1, WASSRO, WASSR>” TESTNO. SERRPC .O 

Sy 001754 050401 DF 30 :0,0,0.0,0,0° 

1146 s*I TEM 45 

1147 CO1756 043476 EM45 :ERROR DURING "DOUBLE ERROR’’ (KT & ODD ADDR.) 
Br 001760 046747 DH45 a peer vas an a 

1150 5930017 (3544) 030147 (38) 

1151 :RECELV VED 

1152 PC SRO SR2 TESTNO ERRORPC 
1153 001762 050164 DT45 ‘ SREG1, S$REG3, WASSRO. WASSR2, TESTNO, SERRPC .O 

BE =. 001764 050401 DF 30 :0,0,0,0,0,0 

1156 s*ITEM 46 

1157 001766 043551 EM46 MPI eo PUSHED WRONG DATA 

1158 001770 047144 DH46 >DATA DAT 

1159 *EXPECTD RECEIVD TESTNO ERRORPC 

1160 001772 050202 DT46  $REGO, SREG1. TESTNO, SERRPC 0 

M4 6 001774 050407 DF46 70,0,0,0 

1163 :* ITEM 47 

1164 9001776 043614 EM47 anh meet cay LOADED WRONG DATA 

1165 002000 047144 DH46 :DATA DAT 

1166 =EXPECTD RECEIVD TESTNO ERRORPC 

1167 002002 050202 DT46 > $REGO, S$REG1, TESTNO, SERRPC 0 

iB 002004 050407 DF 46 70,0,0.0 

1170 :* ITEM 50 

1171 002006 043657 EMSO :STACK NOT PUSHED BY MFPI-MTPI 

1172 002010 047221 DH50 :TESTNO ERRORPC 

1173 002012 050214 DT50 * TESTNO, SERRPC 0 

We 002014 050413 DF 50 0,0 

1176 :* ITEM 51 

1177 002016 043715 EMS1 :KERNEL PAGE ACCESSED INSTEAD OF USER: MFPI-MTPI 
1178 002020 047241 DH51 >SRO WAS SR2 WAS TESTNO ERRORPC 

1179 002022 0650222 DT51 *WASSRO,WASSR2, TESTNO, SERRPC 0 

be 002024 050415 DF51 :0,0,0,0 

1182 :* ITEM 52 

1185 002026 043773 EM52 :WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE 








ee ee ee _—— -— -- — ee 
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| CJKDAD.P11 19-DEC-B0 Mt: 05 RROR POINTER TABLE SEQ 0024 
| 
| 1184 002030 047301 DH52 :PHYSICL PAR 4 
| 1185 “ADDRESS V.B.A. PAR 4 SRO WAS SR2 WAS PSW __TESTNO 
| 1186 002032 050234 DT52 ;PBALO, VIRI 1,$REG4 ,WASSRO,WASSR2,$TMPO, TESTNO, SERRPC ,0 

118 002034 050421 oe <bFSe  -$3,0,0,0,0,0.0,0 

** 

1189 002036 044051 EMS3 ;MFPD INSTRUCTION PUSHED WRONG DATA 

1190 002040 047144 DH46 T DATA 

1191 ;EXPECTD RECEIVD TESTNO ERRORPC 

1192 002042 050202 DT46 $REGO,$REG1, TESTNO, SERRPC , 0 

1193 002044 050407 DF 46 00,020 

1195 :* ITEM 54 

1196 002046 044114 EMS4 :STACK NOT PUSHED BY MFPD-MTPD 

1197 002050 047221 DH50 :TESTNO ERRORPC 

1198 002052 050214 DT50 : TESTNO, SERRPC ,0 

1199 002054 050413 DF50 0,0 

1200 

1201 :*ITEM 55 

1202 002056 044152 EM55 :PAR OR PDR WAS CHANGED BY A RESET 

1203 02060 044603 DH11 sREGISTR READ  READ-(BINARY) 

1204 “ADDRESS (OCTAL) 5432109876543210 TESTNO ERRORPC 





ee em ee me re em — —- = 
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| CJKDAD.P11 19=DEC=-80 11:05 OR POINTER TABLE SEQ 9025 
1205 002062 047552 DT11 : $REGO,$REG1,$REG1,TESTNO, SERRPC ,0 
18 002064 050520 DF11 :0,0,2,0,0 
1208 s*1TEM 56 | 
1209 902066 044210 EMS6 :PSW CHANGED BY AN RTI IN USER MODE 
1210 002070 047417 DH56 *PSW WAS EXPECTD TESTNO ERRORPC 
1211 002072 050256 DT56 *$REGI, SREG2, TESTNO, SERRPC ,O 
1212 002074 050431 DF 56 70,0,0.0 
1213 
1214 
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005227 
177777 


001403 
005237 
000000 


012637 


005227 
177777 


012737 


001226 


001266 


177777 
001270 
001266 


001226 


001266 
001270 
001264 
177572 
177576 
160000 


MACY11 SOA FE) 


002100 


001272 
001274 
177572 


177777 002152 
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RAP HANDLING ROUTINES kkk ht 


. SBTTL TRAP HANDLING ROUTINES 
.SBTTL CPU TRAP HANDLER ROUTINE 


Ble Ra hehe ketal hehehehe hahelaiehalielataiatatetaiahehelniehslahehelelehaheleheisisheleleieieieieieisieielaleisieieiaielehehe 


rrenxe 


eexnKke RaEKK 


** 
te THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS THRU 
:* “ERRVEC’' (LOC. 004). IF THIS SUBROUTINE IS ENTERED BY A 
:* SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A HALT IS 
:* EXECUTED. 
*® 
SCR IOI IORI RIOR OIRO TORI IORI IIR IT DITA IAI IAI SIISSIASSASISSSSASS ISIS. 
TIMERR: INC (PC)+ :MAKE FLAG ZERO IF FIRST TIME THRU 
TIMFLG: .WORD -1 “NEGATIVE ONE FOR ‘HAVE ENTERED'’ FLAG 
BEQ 1 “BRANCH IF FIRST TIME IN 
INC $MSGTYPE ‘TELL APT THERE WAS AN ERROR 
HALT “STOP! = I'VE ENTERED THIS ROUTINE 
“A SECOND TIME BEFORE I FINISHED 
“REPORTING THE FIRST ERROR. THE 
“SECOND ENTRY ADDRESS ‘SHOULD BE ON 
“THE KERNEL STA 
1$: MOV (KSP)+,TRAPPC SAVE PC+2 AT TIME OF ABORT 
MOV (KSP)+,TRAPPS ;SAVE PS AT TIME OF ABORT 
MOV KSP,WASR6 7SAVE STACK POINTER VALUE 
ERROR 1 [UNEXPECTED TRAP OR ABORT TO LOC. 4 
MOV #-1, TIMFLG [MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
MOV TRAPPS,-(KSP) :PUT PC & PS OF TRAP ON STACK 
MOV TRAPPC ,~(KSP) 
RTT :RETURN FROM INTERRUPT OR ABORT 


.SBTTL MEMORY MANAGEMENT TRAP HANDLER ROUTINE 


FREER EERE EKEER ERE EEEEAREKREKEEKEERAERERERREREERERER ER 


* 
* Ling £3 SUBROUTINE WILL HANDLE ALL UNEXPECTED MEMORY MANAGEMENT 

* RAPS AND ABORTS THRU “MMVEC’* (LOC. 250). IF THIS SUBROUTINE IS 
* ENTERED BY A SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A 

* HALT IS EXECUTED. 

* 


ORK KEKE EERE EEE KEKE EKKEKEEEEKEKAEKEREKEKEEKEEEEEEEK 


MGMERR: INC (PC) + sMAKE FLAG ZERO IF FIRST TIME THRU 
MGMFLG: .WORD <1 [NEGATIVE ONE FOR ‘HAVE ENTERED"’ FLAG 
BEQ 1$ ;BRANCH IF FIRST TIME IN 
INC SMSGTYPE sTELL APT THERE WAS AN ERROR 
HALT ‘STOP! = I'VE ENTERED THIS ROUTINE 
:A SECOND TIME BEFORE I FINISHED 
SREPORTING THE FIRST ERROR. THE 
:SECOND ENTRY ADDRESS SHOULD BE ON 
>THE KERNEL STACK. 
1$: MOV (KSP)+,TRAPPC  ;SAVE PC+2 AT TIME OF ABORT 
MOV (KSP)+,TRAPPS ;SAVE PS AT TIME OF ABORT 
MOV KSP ,WASR6 sSAVE STACK POINTER VALUE 
MOV SRO ,WASSRO :SAVE CONTENTS OF KT STATUS REG. 0 
MOV SR2,WASSR2 >SAVE CONTENTS OF KT STATUS REG. 2 
BIC #160000, SRO :CLEAR ERROR BITS IN ore a tik 0 
ERROR 2 SUNEXPECTED TRAP OR ABORT T - 290 
MOV 4-1 ,MGMFLG “MAKE FLAG NEGATIVE ONE FOR ONEXT TIME 
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013746 001270 
013746 €01266 
000006 
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MEMORY MANAGEMENT TRAP HANDLER ROUTINE 


MOV TRAPPS,-(KSP)  ;PUT PC & PS OF TRAP ON STACK 
MOV TRAPPC ,=(KSP) 


RT7 ;RETURN FROM INTERRUPT OR ABORT. 


———_ eee etme See 


SEQ 0027 


1280 


rmnrrenrny 
SQSe° 
Mew 


Soe 
OS NS: 


SRBSSS 


3 


BEN 


SRoeecess 


Ww 
SS 
oo 


Mong — 2 — 


WIWAIANIWW WANA AAA AAA 
MINMQIMIAINIAINOAYD sheababababababa«b ad 


er ere er ee ee ee ee ee ee ee ee ee ee ee ee ee 
WONAUSWH-ODOONAULSWN—© 


WAG 
Ww 
© 


020116 


020124 


020220 


020226 
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020000 


112737 


012737 


012737 


013746 


001012 


000403 
012716 
000002 


012737 
012737 


001100 
001140 
001100 
034304 

40 


0 2 
020174 
020164 
000006 
000010 

12 


020220 


000004 
177777 


020274 


000176 
000174 
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000020 


034010 


001115 


000014 


034270 
000010 


001106 
0011170 


000004 
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14-JAN-81 
.SBTTL 
-SBTTL ***%* STARTING POINT OF TEST ***«« 
-SBTTL ‘*****% STARTING ADDRESS OF 200 **««« 
.=20000 
START: 
. SBTTL pe THE COMMON TAGS 
::CLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV ASCMTAG,R6 STL EAR LOCATION TO BE CLEARED 
CLR (RS) + LEAR MEMORY LOCATION 
CMP #SWR,R6 ::DONE? ~ 
od .~6 ;;LOOP BACK IF NO 
H#STACK,SP :;SETUP THE STACK POINTER 
:: INITIALIZE A FEW VECTOR S 
ASSCOPE ,@MIOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
MOV #340, aH IOTVEC+2 s;LEVEL 7 
MOV #SERROR, Q@AEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
MOV #340, aHEMTVEC+2 eel LEVEL 7 
MOV #$T TRAP, @A#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
MOV pone aA TRAPVEC +2: LEVEL 7 
MOV VEC ;;POWER FAILURE VECTOR 
MOV 7340, SWPURVECS? ssLEVEL 7 
MOV SENDCT, SEOPCT + SETUP END-OF -PROGRAM COUNTER 
CLR STIMES : INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE 


; 7 CLEAR THE ESCAPE ON ERROR ADDRESS 
ONE PER TEST 


MOVB #1 , SERMAX ALLOW RROR 
ee BE he THE ''T-BIT'' TRAP VECTOR. Sor LOAD pA eee *“SRTRN'', IN 


64$: 


65$: 
66$: 


V #. ,SLPERR >: SETUP 
:z:SIZE FOR A HARDWARE SWITCH REGISTER. 


pha * (SEOP) ROUTINE, 


7; EQUAL ie A* 


67$: 
68$: 


WITH A ‘RTI’ OR 
#SRTRN,@ATBITVEC ::SET et BIT VECTOR TO $RTRN 
oat a#TBITVEC+2 SSLEVEL 7 

ARTI, SRT :7SET SRTRN TO A RTI 
We58 OAR SVEC ssTRy en” A RTT 
#64$ ,-(SP) 


ARTT, SRTRN 
66$ 


: AND PC 
:TRY THE R 
SIRTT IS LEGAL--SET SRTRN TO A RTT 
#10,SP RTT ILLEGAL--CLEAN OFF THE STACK 
#RESVEC+2, amesvit ;zRESTORE TRAP CATCHER 
$TBIT :CLEAR ‘'T'’ BIT SWITCH 
#.,SLPADR :: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
THE ERROR LOOP ADDRESS 
IF NOT FOUND OR 
SETUP FOR A SOFTWARE SWITCH REGISTER. 
HERRVEC,-(SP) ;;SAVE ERROR VECTOR 
#67$ , AMERRVEC 2 3SET UP ERROR VECTOR 


ADSWR, SWR 7:SETUP FOR A HARDWARE SWICH REGISTER 

#DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 

#~1 ,ASWR SETRY TO REFERENCE HARDWARE SWR 

69% ee IF NO TIMEOUT TRAP ages 
$i HARDWARE SWR IS NOT = -1 


: OUT 
::SET UP FOR TRAP RETURN 
:;POINT TO SOFTWARE SwWR 


68% 
#68$, (SP) 


ASWREG,S 
#DISPREG, DISPLAY 





ee eee ee oe eee ee 
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CJKDAD.P11 19=DEC-80 11:05 INITIALIZE THE COMMON TAGS SEQ 0029 
133) 020310 012637 000004 69$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
1335 020314 005037 001234 CLR $PASS :CLEAR PASS COUNT 
1334 020320 132737 000200 001247 BITB #APTSIZE,SENVM SETEST USER SIZE UNDER APT 
1335 020326 001403 BEQ 70$ , :YES,USE NON-APT SWITCH 
1336 20330 012737 001250 001140 MOV ASSWREG, SWR + =NO, USE APT SWITCH REGISTER 
1337 020336 70$: 
1338 zz INITIALIZE THE oo. COUNTER FOR EOP REPORT(SERTTL). 
1339 020336 005037 001112 CLR SERTTL :CLEAR ERROR COUNTER 
1340 .SBTTL TYPE PROGRAM NAME 
1341 >; TYPE THE NAME OF THE PROGRAM IF Bed PASS 
1s 020342 005227 177777 INC #=-1 ssFIRST TIME? 
134 20346 001046 BNE a5 :SORANCH IF NO 
1344 020350 022737 034166 000042 CMP ASENDAD , a#42 :;ACT=-11? 
1345 920356 001442 aCe 71$ ge IF YES 
1346 020 104401 020426 YPE es YPE ASCIZ STRING 
1347 .SBITL GET VALUE FOR SOF TWARE shiten REGISTER 
1348 020 005737 000042 TST af42 2 zARE W WE RUNNING UNDER XXDP/ACT? 
1349 020370 1012 BNE 73$ ;BRANCH IF YE 
1350 0620372 123727 001246 000001 CMPB SENV,41 > :ARE WE RUNNING UNDER APT? 
1351 020400 001406 BEQ 73$ : ;BRANCH IF YES 
1352 020402 023727 001140 000176 CMP SWR ,ASWREG > :SOFTWARE SWITCH REG SELECTED? 
1353 020410 001005 BNE 74% : ;BRANCH 
1354 020412 104407 GTSWR ::GET SOFT-SWR SETTINGS 
1355 020414 000403 BR 74$ 
1356 020416 112737 000001 001134 735: MOVB #1,$AUTOB :z;SET AUTO-MODE INDICATOR 
1357 020424 74$: 
1358 020424 000417 71$ :GET OVER THE ASCIZ 
1359 -:72$: .ASCIZ <CRLF>#CJKDADO KTEII-AA MMU DIAG. A<CRLF> 
360 020464 71$: 
1362 020464 RESTRT: 
1363 020464 012706 001100 LOOP: MOV ASTACK,KSP : INITIALIZE THE STACK POINTER 
1364 020470 012737 002076 000004 MOV #TIMERR,ERRVEC :LOAD CPU SERVICE ROUTINE INTO TRAP VECTOR 
1365 020476 012737 000354 000006 MOV #340, ERRVEC+2 = SET NEW PS TO tore oe A LEVEL 7-KERNEL 
1366 20504 012737 002150 000250 MOV #MGMERR, MMVEC LOAD MEMORY MANAGENT ROUTINE INTO VECTOR 
1367 020512 012737 000340 000252 MOV #340, MMVEC+2 SET NEW PS TO PRIORITY LEVEL 7-KERNEL 
1368 020520 012700 177777 MOV H=1 “RO -PUT -1 INTO RO TO ough nee FLAGS 
1369 020524 010037 002100 MOV RO, TIMFLG : INITIALIZE CPU ERROR FLAG 
1370 020530 010037 002152 MOV RO.MGMFLG : INITIALIZE MEMORY MANAGEMENT ERROR FLAG 
1371 020534 012737 000340 001276 MOV #340, TBITPS s INITIALIZE LOG THAT HOLDS T-BIT PSW 
136 020542 005037 177572 CLR SRO “BE SURE MEM. MGMT IS OFF TO START WITH 


ee ee ee re eee -_-——.- -——— a = 
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020560 


177437 


000040 
000400 


020550 


020632 
177776 


177776 


010000 


020622 
177776 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


SS RARARAEEAAARERAEAEERAAEREAAAEAARAAARRARAARAAAAARAARARAAARREREAAARERAA ES 


**TEST 1 PSW PRIORITY BIT TEST 
** 
te THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <7:5> ‘PRIORITY BITS" 
oe TO SEE THAT SOME OF THE BASIC ‘DATA PATH’ LOGIC IS WORKING. 
** 
SOR ICRI ICTR IOC ICIOICRCIOICICISIOI IIIT IORI ITO TTT TTT TTI AISA ISAS SSIS IISA 
TST1: SCOPE 
001110 18: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
CLR RO ‘INITIALIZE RO WITH PRIORITY=0 DATA 
2$: CLR R1 “PREPARE R1 TO ACCEPT DATA READ 
MIPS RO “WRITE PRIORITY BITS IN THE PSW 
MEPS —R'1 “READ BACK THE LOW BYTE OF PSW 
BIC #1776437,R1 “MASK OFF EVERYTHING EXCEPT PRIORITY BITS 
CMP RO,R1 “WAS CORRECT PRIORITY SET IN THE PSW? 
BEQ 3 “BRANCH IF YES 
ERROR 3 “PRIORITY BITS SET WRONG IN PSW 
“FOR TIGHTER SCOPE LOOP 
SREPLACE ERROR CALL WITH 
:'BR 2$'° 770 
3$: ADD #40,RO “CHANGE DATA TO NEXT PRIORITY 
CMP #400,RO “HAVE PRIORITIES 0-7 ALL BEEN CHECKED? 
BNE $ “BRANCH IF NO 
001110 MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
ee! ee 
>*TEST 2 PSW MODE BIT TEST 
:* THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <15:12> "MODE BITS"' 
** 
SUAS SIO IOSIIO IOI SISIOISIIDO ITI IIOITITIIOOITIIUIDIO ITO II 
TST2: SCOPE 
001110 1$: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
CLR RO ‘INITIALIZE RO WITH MODE BITS = 0000 
2$: CLR PSwW * INITIALIZE PSW 
BIS RO, PSW “BIT SET THE PSW MODE BITS WITH RO 
MOV WRI “READ BACK THE CONTENTS OF THE PSW 
BIC #007777.R1 “MASK OFF EVERYTHING EXCEPT THE MODE BITS 
CMP RO.R1 “WERE THE MODE BITS SET CORRECTLY? 
BEQ 3$ “BRANCH IF 
CLR PSW “CLEAR PSW FOR ERROR REPORT 
ERROR 4 “MODE BITS SET WRONG IN PSW 
“FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
:'"BR 2$'' = 000763 
3$: ADD #10000,R0 “CHANGE MODE BIT DATA 
BNE $ “BRANCH IF STILL MORE COMBINATIONS 
001110 MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
CLR PSW “RESET PSW BEFORE LEAVING 


Peet Ae Eee eee ee 


TRTEST 3 BYTE ADDRESSING TEST FOR PSW 


* 
; THIS TEST WRITES THE HIGH AND LOW BYTES OF THE PROCESSOR STATUS WORD 


z* AND READS THEM BACK TO BE SURE THEY CAN BE WRITTEN INDEPENDENTLY. 





SEQ 0050 


CJKDAD.P11 


020752 


020754 


C21026 


021064 
021070 
021072 


ee ee ee ee 


012737 


——_— 
rm mmr rm rm se ee 


CJKDADO KTF11=AA MMU DIAG 
19=DEC-80 11:05 


020714 
177776 
007437 
177776 
020762 

6 


177776 
007437 


177776 


020706 


177776 


001100 
001100 


MACY11 1: Stee 


001110 


001110 


001110 


177776 


. 6S 
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14-JAN-81 11:36 
BYTE ADDRESSING TEST FOR PSW 
** 
SIDS IEISSISIOIIOOIIOISIIOISISINISISIOIIIIOISISIIIOIISIOIOIDIOIUIOIDIOIIOIOI III TIT TOT TOIT TOI 
TST3: SCOPE 
1$: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
2$: CLR PSW “CLEAR THE PSW 
MOV #360,R0 “PUT THE HIGH BYTE DATA INTO RO 
MOVB RO, PSw+1 “WRITE THE HIGH BYTE OF THE PSW 
MOV PSW,R1 “READ BACK THE ENTIRE PSW 
BIC #007437,R1 “MASK OFF THE T & CC BITS 
SWAB ~—S_ RO *GET DATA WRITTEN IN HIGH BYTE OF RO 
CMP RO,R1 “WAS THE PSW WRITTEN TO CORRECTLY 
BEQ 3$ “BRANCH IF YES 
CLR PSwW “CLEAR PSW FOR ERROR REPORT 
ERROR 5 “LOW BYTE EFFECTED BY WRITE TO HIGH BYTE OF PSW 
“FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
-"BR 2$'' = 000760 
3$: MOV #4$,$LPERR “SET LOOP ON ERROR POINTER TO 4$ 
4$: CLR PSW “CLEAR THE PSW 
MOV #340,RO *PUT THE LOW BYTE DATA INTO RO 
MOVB _—— RO, PSW “WRITE THE LOW BYTE OF THE PSW 
MOV W,R1 “READ BACK THE ENTIRE PSW 
BIC #007437,R1 “MASK OFF THE T&CC BITS 
CMP 0,R1 “WAS PSW WRITTEN TO CORRECTLY 
BEQ S$ “BRANCH IF YES 
CLR PSW *CLEAR PSW FOR ERROR REPORT 
ERROR 5 “HIGH BYTE EFFECTED BY WRITE TO LOW BYTE OF PSw 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR_CALL WITH 
5$: MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
SERRE EERE EERE KEEEEREKEREREKREAEKEEEREKEKEREKEREEEKEEREEEREERERERE 
“TEST 4 TEST AND SETUP OF STACK POINTERS 
*® 
:* THIS TEST SETS THE USER AND KERNEL STACK POINTERS FOR THE 
:* REST OF THE PROGRAM AND MAKES SURE THEY ARE INDEPENDENT OF 
* EACH OTHER. KERNEL R6 IS SET TO 1100, USER R6 IS SET TO 700, THEN 
:* KERNEL R6 IS READ TO BE SURE ITS STILL 1100. 
“*® 
*: : REAR AERAKCEKEKEREEEAEEERAEAAAKAEAEEAEEEEAEAEEKEEREREEEKEEEAEEEE 
1ST4: SCOPE 
CLR PSW :GO TO KERNEL MODE 
MOV AKERSTK,KSP “SET KERNEL STACK POINTER TO 1100 
MOV #140000,PSW *GO TO USER MODE 
MOV #USESTK USP “SET USER STACK POINTER TO 700 
CLR PSW “BACK TO KERNEL MODE 
CMP #KERSTK,KSP :1S KERNEL R6 STILL 1100? 
BEQ TST5 CH IF KERNEL R6 
MOV #KERSTK,RO SAVE DATA WRITTEN FOR ERROR REPORT 
MOV KSP,R1 ; SAVE DATA READ AFTER USER R6 WAS WRITTEN 
ERROR 6 “KERNEL R6 CHANGED BY WRITING USER R6 


;FOR TIGHTER SCOPE LOUP 
:REPLACE ERROR CALL WITH 
:000756 


eo smn ee eee 


SEQ 0031 


-__-— + 





CJKDAD.P11 


021150 
021154 


000004 


012737 
012737 
012700 


062706 


005257 


CJKDADO KTF11=AA MMJ DIAG 
19~DEC-80 11:05 


021140 


000002 
172516 
021076 
001304 
002076 


000004 


001302 


001300 
001304 


— —_« meee eC 


MACY11 < Chant 


001110 
000004 


001300 


001110 


000004 


ea ee ee ee _—-- 
-— ———— 


G 
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TEST AND SETUP OF STACK POINTERS 


TPRSRESSSALSAALASELESE LARS ASE SERRA RRR RR RRR RRR RRR RAR RRA RES ARR RRS S SE 


THE NEXT FIVE (5) TESTS WILL TRY TO ee se ALL OF THE 


MEMORY MANAGEMENT REGISTERS (SRO,SR1,S 


R3,KERNEL & USER PAR/°DR'S). 


EVERY TIME A REGISTER TIMES OUT ITS ADDRESS WILL BE REPORTED 


AT THE END OF EACH TEST A SUMMARY OF THE voce "iam tnee’" ioe TIMED 


THE RESULTS OF "‘OR= ING’ 


THEIR ADDRESSES IS GIVEN TO SHOW WHICH ADDRESS LINES MAY aE 


STUCK AT 0 OR 1. 
THINGS BEING CHECKED. 


7 
s* 
se 
s* 
** 
.* OUT DURING THAT TEST IS GIVEN. 
**% 
> 
s* 
7” 


THE PAR/PDR ADDRESS AND KT MUX*S ARE THE 


ORC RASSSEASSZESALESLALALSELE SERRE ERS SRR RARER AAA RAR RAR ASA SAAR SSS DDS 


Reh ehehehehahahahahahetehokeieheheheheheiahehehehcheheheleielelelelsheielshehehehsicheheheleheieheleleleleielelaleleieisieiehel 


THIS TEST ADDRESSES THE MEMORY MANAGEMENT STATUS REGISTERS 
AND 3. §S REG. 1 IS NOT USED BUT SHOULD STILL 


DATA WILL BE WRITTEN OR READ 


FROM THESE REGISTERS IN LATER TESTS, THIS TEST JUST CHECK 


RRA REE KEKE EKEEKEKEKEKEKKEKEEEEAKKEKEEKKKEEKEKKKKEERKKKK 


:SET LOOP ON ERROR POINTER TO 2$ 
;SET TIMEOUT VECTOR TO 5$ 

;LOAD RO WITH ADDRESS OF FIRST REG. 
;LOAD R1 WITH THE LOOP COUNT 

s INITIALIZE ‘‘AND’’ OF ADDRS. LOC. 

S INITIALIZE ‘‘OR'' OF ADDRS. LOC. 

: INITIALIZE ‘‘TIMEQUTS'’ COUNTER 

:; TRY ADDRESSING A STATUS REGISTER 
:IF IT TIMES OUT GO TO 5$ 


“*TEST 5 SRO.SR1,SR2,SR3 TIMEOUT TEST 
** 
st 
se 0,1. TATUS 
:* RESPOND TO ITS UNIBUS ADDRESS. 
* 
:* FOR A RESPONSE. 
-* 
S15: SCOPE 
1$ MOV #2$,$LPERR 
MOV #5$, a4 
MOV #SRO,RO 
MOV #3,R1 
MOV #~1, ANDADR 
CLR ORADR 
CLR TONUM 
2$: TST (RO) 
3$: ADD #2,R0 
SOB 


R1,2$ 
TST a#172516 
MOV #1$,$LPERR 
TONUM 
BEQ 4$ 
10 
4$: MOV ATIMERR ,aa4 
TST6 


S$: ADD — 
RO,R2 

BIS on 

BIC R2,ANDADR 
TONUM 


;PUT NEXT ADDRESS IN RO 

;LOOP BACK TO 2$ UNTIL ALL TESTED 
:CHECK SR3 FOR RESPONSE 

:IF IT TIMES OUT GO TO 5$ 
[RESET LOOP ON ERROR POINTER TO 1$ 
:DID gh Oe STATUS REG.S TIMEOUT? 


> SUMMARY OF STATUS REG. TIMEOUTS 
:RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
::GO TO NEXT TEST 


;CLEAN UP THE STACK 
ZONE OF THE STATUS REGS. TIMED OUT 
:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
2$"' = 000756 


; LOAD THE ADDRESS THAT TIMED OUT INTO R2 
:‘OR'' IT WITH OTHER ADDRS. THAT TIMED OUT 
:"'AND'' IT WITH OTHER ADDRS. THAT TIMED OUT 


: INCREMENT THE TIMEOUT COUNTER 





ene me a ee em ee ee -- 


SEQ 0032 


CJKDADO KTF11=AA MMU DIA 
CJKDAD.P11 


021230 000744 


ee ee ed eed ed ed ed od od ed ot =o =" 
MMMM VIII VV) 
SEPALS 
WONQAUIS 


Oo 
WN 


021232 


000004 
012737 


000414 


062706 
104007 


000746 


000004 


012737 
012737 
012700 
012701 


19~DEC-B0 1: 05 


021276 


001504 


000002 
021234 
001304 
002076 


000004 


001302 


001300 
001304 


021430 
021466 
172300 
000010 


MACY11 wget "one? 


001110 
000004 


001300 


001110 


000004 


001110 
000004 


‘. 
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SRO,SR1,SR2, SRS TIMEOUT TEST 


BR 


3$ 


;BRANCH BACK TO TEST THE NEXT ADDR. 


Ss ERA AEA EEA AAR RARER RAEAARRAERRERERERRA RARE EES 


KERNEL PAR*S TIMEOUT TEST 


;*TEST 6 


2$: 
3$: 


4$: 


5$: 


THIS TEST ADDRESSES THE EIGHT (8) KERNEL PAGE ADDRESS 
REGISTERS (KIPARO-KIPAR7) AND CHECKS THAT SOMETHING 
RESPONDS TO THEIR ADDRESSES. 


SCOPE 


#2$,$LPERR 
ASS ,a#4 
#KIPARO,RO 
#10,R1 

#~-1 ,ANDADR 
OR,\DR 
TC'VUM 

(0) 

#2,R0 
R1,2$ 
#1$,$LPERR 
TONUM 

4$ 

10 

#TIMERR ,a&4 
TST7 


#4 ,KSP 
7 


RO,R2 
oe 


R2,ANDADR 
TONUM 
3$ 


TOPE SASEAESASASAASPALLALAAAASA SEALERS RRR AR SARARARAARAR RARER AAAS SDSS: 


;SET LOOP ON ERROR POINTER TO 2$ 
:SET TIMEOUT VECTOR TO 5$ 
; LOAD RO WITH yg BA i REG. 


: INITIALIZE ‘'TIMEOUTS'' COUNTER 

7 TRY ep gs A KIPAR 

: IF TIMES OUT, WILL GO TO 5$ 
PUT NEXT KIPAR ADDRESS IN RO 
;LOOP BACK TO 2$ UNTIL ALL TESTED 
:RESET LOOP ON ERROR POINTER TO 1$ 
:D1D ANY OF THE KIPARS TIME OUT? 
;BRANCH IF NO 

; SUMMARY OF KIPAR TIMEOUTS 

SRESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
::G0 TO NEXT TEST 


;CLEAN UP THE STACK 

ZONE OF THE KIPARS TIMED OUT 

:FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 
:"BR 2$"* = 000756 

;LOAD THE ADDRESS THAT TIMED OUT INTO R2 
:"‘OR'' IT WITH OTHER ADDRS. THAT TIMED OUT 

:"'AND'’ IT WITH OTHER ADDRS. THAT TIMED OUT 


; INCREMENT THE TIMEOUT COUNTER 
;BRANCH BACK TO TEST THE NEXT KIPAR 


FLAKE REE EREREEKEREKEEKEEKEEREREREREERERER EKER REE ERE ERED 


s*TEST 7 


SCOPE 


KERNEL PDR'S TIMEOUT TEST 


THIS TEST ADDRESSES THE EIGHT (8) KERNEL PAGE DESCRIPTOR 
REGISTERS (KIPDRO-KIPDR7) AND CHECKS THAT SOMETHING 
RESPONDS TO THEIR ADDRESSES. 


#2$,$LPERR 
#5$,a#4 
#KIPDRO,RO 
#10,R1 


;SET LOOP ON ERROR POINTER TO 2$ 
:SET TIMEOUT VECTOR TO 5$ 

“LOAD RO WITH ADDRESS OF FIRST REG. 
:LOAD R1 WITH LOOP COUNT (8) 


SEQ 0035 


—————_—_— —-—— 


| 


C JKDADO 


KTF11-AA MMU DIAG 
19=DEC-80 11:05 


CJKDAD. pt 


1598 
1599 


1601 


SSSR 


ee ee ee eee 
NOV 


ee ed ed oes oo) ~) od = —) 
WONAULWN—O 


021412 


021466 
021472 


021474 


021514 


021516 
021520 


021616 


021620 
021624 


012737 


000004 


012737 


062706 
104007 


a me re ee ee + 


177777 
601302 
001304 


000002 
021366 
001304 
002076 


000004 


001302 


001300 
091504 


021562 
001302 
001304 
000002 
021520 
001304 
002076 


000004 


mm 8. _ ——— 


; 3 
11:36 PAGE 34 


s INITIALIZE ‘‘AND’* OF ADDR. LOC 
INIT ZE ‘‘OR’’ OF A 


;IF IT TIMES OUT, WILL GO TO 

:PUT NEXT KIPDR ADDRESS IN RO 
;LOOP BACK TO 2$ UNTIL ALL TESTED 

:RESET LOOP ON ERROR POINTER TO 1$ 
:DID a KIPDRS TIME OUT? 


BRANCH 

; SUMMARY OF KIPDR TIMEOUTS 

sRESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
7:GO0 TO NEXT TEST 


;CLEAN UP THE STACK 

oa OF THE KIPDRS TIMED OUT 
;FOR TIGHTER SCOPE LOOP 

; REPLACE ERROR CALL WITH 
;'BR 2$"" = 000 


; LOAD THE "ADDRESS THAT TIMED OUT INTO R2 
>| OR'* IT WITH OTHER ADDRS. THAT TIMED OUT 
:"'AND'' IT WITH OTHER ADDRS. THAT TIMED OUT 


; INCREMENT THE TIMEOUT COUNTER 
;BRANCH BACK TO TEST THE NEXT KIPDR 


SL REAR AEA EK EE ERE RERE REE EERAEEREREEREREAEEREREREREERERRRERERERES 


USER PAR'S TIMEOUT TEST 


THIS TEST ADDRESSES THE EIGHT (8) USER PAGE ADDRESS 
REGISTERS (UIPARO-UIPAR7) AND CHECKS THAT SOMETHING 


PPS SSSASAASASZASALALLS SEALERS RAR RARE REE RARER AAA ARERR ARR RAR A ALAS ASS 


;SET LOOP ON ERROR POINTER TO 2$ 
:SET TIMEOUT VECTOR TO 5$ 
:LOAD RO WITH og _ REG. 


“DID ANY OF THE UIPARS TIME OUT? 

: SUMMARY OF UIPAR TIMEOUTS 
RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 

: 60 TO NEXT TEST 


;CLEAN UP THE STACK 


MACY11 30A(1052) 14-JAN-81 
17 KERNEL PDR'S TIMEOUT TEST 
001300 MOV #~1,ANDADR 
CLR ORADR 
CLR TONUM 
2$: TST (RO) 
3$: ADD #2,RO 
SOB R1,2$ 
0011710 MOV #1$,$LPERR 
TST TONUM 
BEQ 4$ 
ERROR 10 
000004 43: MOV ATIMERR, ants 
BR TST10 
5$: ADD #4 ,.KSP 
ERROR 7 
MOV RO,R2 
BIS R2,ORADR 
COM R 
BIC R2,ANDADR 
INC TONUM 
BR 33 
:*TEST 10 
> 
** 
:* RESPONDS TO THEIR ADDRESSES. 
** 
7ST10: SCOPE 
001110 1$: MOV #2$.$LPERR 
000004 MOV #53. af 
MOV AHUIPARO,RO 
MOV #10,R1 
001300 MOV #-1, ANDADR 
CLR ORADR 
CLR TONUM 
2$: TST (RO) 
3$: ADD #2,R0 
SOB R1,2$ 
001110 MOV #1$,$LPERR 
TST TONUM 
BEQ 4$ 
ERROR 10 
000004 4$: MOV #TIMERR aa 
BR TST11 
5$: ADD #4 ,KSP 
ERROR 7 


[ONE OF THE UIPARS TIMED OUT 


em ee ee ee ee we eee ae - = 


SEQ 0034 


r 


TT SK se a oe 
ee ee - ae 


CJKDADO KTF11=AA MMU DI 
19=DEC-80 11:05 


CJKDAD .P11 


021650 
021652 
021660 


021714 
021716 


021750 


021752 
021756 


000004 
012737 


062706 
104007 


000746 


AG 


001302 


001300 
001304 


021714 


001304 
000002 
021652 
001304 
002076 


000004 


001302 


001300 
001304 


MACY11 30A(1052) 
T10 


001110 
000004 


001300 


001110 


000004 





EE 


14-JAN-81 
USER PAR*S TIMEOUT TEST 


is 
11:36 PAGE 35 


;FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
:‘BR 2$'' = 000756 


:LOAD THE “ADDRESS THAT TIMED OUT INTO R2 
:"OR'' IT WITH OTHER ADDRS. THAT TIMED OUT 
:"'AND'' IT WITH OTHER ADDRS. THAT TIMED OUT 


; INCREMENT THE TIMEOUT COUNTER 
;BRANCH BACK TO TEST THE NEXT UIPAR 


TAR RERSSSSSLLLALAAALLLLLALELSLAESA SEER ER RRA RRA RA RASA RSA SAAS ASRS ASAE SSS 


ee 
38 


«te 
"* 
** 
** 
, 2 
S 


sears Se Be Be 


1$: 


2$: 
3$: 


43: 


5$: 


ee 
"* 
. 


MOV RO.R2 
BIS R2,0RADR 
COM R 
BIC R2,ANDADR 
INC TONUM 
BR 3$ 
TEST 11 USER PDR'S TIMEOUT TEST 


THIS TEST ADDRESSES THE EIGHT (8) USER PAGE DESCRIPTOR 
REGISTERS (UIPDRO-UIPDR7) AND CHECKS THAT SOMETHING 
RESPONDS TO THEIR ADDRESSES. 
TORE RAAEAASZESESLSAALALASASASESAS ESSERE SER AEA AAAS ARAL ALARA ASAD S SS S| 
T11: SCOPE 
MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2% 
MOV #53 ,a4 :SET TIMEOUT VECTOR TO 5$ 
MOV #UIPDRO,RO sl RO WITH ADDRESS OF FIRST REG. 
MOV #10,R1 ‘LOAD R1 WITH LOOP COUNT (8) 
MOV #-1 ,ANDADR : INITIALIZE *‘AND’’ ADDR. _ 
CLR ORADR s INITIALIZE * OR" 
CLR TONUM INITIALIZE BE i COUNTER 
TST (RO) :TRY ADDRESSING A UI 
IF IT TIMES OUT, WILL GO TO 5$ 
ADD #2,R0 ;PUT NEXT UIPDR ADDRESS IN RO 
SOB R1,2$ ;LOOP BACK TO 2$ UNTIL ALL TESTED 
MOV #1$,$LPERR :RESET LOOP ON ERROR POINTER TO. 1$ 
TST TONUM ;DID ANY OF THE UIPDRS TIME OUT? 
BEQ 4$ ;BRANCH IF NO 
ERROR 10 SUMMARY OF UIPDR TIMEOUTS 
MOV ATIMERR ,aA4 SRESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
TSTl2 :3G0 TO NEXT TEST 
D #4 ,KSP ;CLEAN UP THE STACK 
ERROR 7 ZONE OF THE UIPDRS TIMED OUT 
:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;*BR 28°" = 000756 
MOV RO.R2 LOAD THE “ADDRESS THAT TIMED OUT INTO R2 
BIS R2,ORADR 7 ‘OR’ IT WITH OTHER ADDRS. THAT TIMED OUT 
COM R :“AND'’ IT WITH OTHER ADDRS. THAT TIMED OUT 
BIC R2,ANDADR 
INC TONUM ; INCREMENT THE TIMEOUT COUNTER 
BR 3$ ;BRANCH BACK TO TEST THE NEXT UIPDR 


TEST 12 


RRR EKAEREREEREREREEAREEEE 


SRO(15:13) BIT TEST & SR2 TEST 


THIS TEST CHECKS BITS <15:15> OF STATUS ae 0 ry 


THAT EACH CAN BE = 
CLEAR ALL OF THEM 


T AND CLEARED AND THAT A 


"RESET" 


mm mm en ———— = 


SEQ 0035 


CJ 
CJ 


E: 


ANAND 
WMO 


NNN NN NNN NN 
SVRAR 


P11 


022022 


022024 


022052 


022054 
0 


022120 


C22124 
022126 


022130 
022132 
022134 
022136 


. KTF11=AA MMU D 
19=DEC-80 11-05 


104012 


012704 
013737 
020437 


001401 
104064 


012737 


LAG 


177572 
160000 


022024 


022072 
100000 
000003 


022074 
177576 
001274 


022004 


MACY11 30A(1052) 
Tle 


001110 
001274 


001110 


001274 


001110 


2$: 
8$: 


3$: 


4$: 
5$: 


6$: 


7$: 


14-JAN-81 


11:36 


paG E 36 
§R0(15:13) BIT TEST & ore TEST 


THE REST OF BITS IN SRO WILL BE ey bee LATER. 
ALSO CHECK THAT SR2 IS TRACKING WITH MEM. MGMT. 
OFF BUT LOCKS UP WHEN ANY OF SRO ERROR BITS SET. 


SCOPE 


#SRO,RO 
#160000, (RO) 


(RO) ,R1 
2$ 
17 


#2$,$LPERR 
SR2,.WASSR2 
#8$,R1 


91 -WASSR2 
4} 


#4$ ,$LPERR 
#BIT15,R 


#5$, 
SR2, WASSR2 
R4,WASSR2 


7$ 
64 


R1 

R3,4$ 

(RO) 
#1$,$LPERR 


SRR RRR EEE KEE EERE EREREREERRRRERHAKKEE 


;LOAD ADDRESS OF SRO INTO RO 

:SET BITS <15:13> IN SRO (ERROR BITS) 

s ISSUE AND “"INIT’’ SIGNAL 
:READ SRO INTO R1 TO SEE IF CLEAR 
:BRANCH IF SRO<15:13> CLEARED BY ‘"INIT’’ 
;SRO<TS : 13> NOT CLEARED BY A ‘RESET’’ 
;FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 

;'BR 1$°" = 000 


SET LOOP ON ERROR POINTER TO 2$ 
sREAD CONTENTS OF SR2 

;LOAD EXPECTED CONTENTS INTO R1 
:IS ae TRACKING? 

BRANCH IF 


YES 
:SR2 NOT ‘‘TRACKING’* VIRTUAL ADDRESSES 
:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:‘BR 2$'* = 000767 


SET LOOP ON ERROR POINTER TO 4$ 
;PUT DATA TO BE WRITTEN IN R1 
cor EAR a AS A LOOP COUNTER 


LE 0 
7SET ONE OF THE ERROR BITS IN SRO 
yg ta INTO R2 

:DID RIGHT ERROR BIT GET SET? 
;BRANCH IF YE 


cH S 
:BI1S WERE SET WRONG IN SRO 
zFOR TIGHTER SCOPE LOOP 
: REPLACE, eae WITH 


2 
;LOAD — CONTENTS OF SR2 IN R4 


;READ S 
:DID SR2 LOCK UP WHEN ERROR 
:BIT SET IN SR1? 


;REPLACE ERROR _CALL WITH 
:'BR 4$"' = 000761 


; CHANGE DATA TO CHECK NEXT ERROR BIT 
:LOOP BACK UNTIL <15:13> ALL TESTED 
:CLEAR SRO BEFORE LEAVING 

sRESET LOOP ON ERROR POINTER TO 1$ 


5 EEE EERE EERE REE EER EER ERE RERER EERE REAR R AEE E 


“*TEST 13 


** 
e 
** 
6 
°@ 
o 


THIS TEST CHECKS MORE OF THE ADDRESS DETECT 
VERIFYING THAT STATUS REGISTER 0 IS NOT EFF 


SRO & PSW DUAL ADDRESSING TEST 


ION LOGIC 8Y 
ECTED BY WRITING 


LE A mm . 


SEQ 0036 


mc 
———_—_——_—— eee ee ro eee ~~ He oe 





| L 
CJKDADO KTF11=AA MMU DIAG MACY11 30A(1052) 14-JAN-81 11:36 PAGE 37 
CJKDAD .P11 19=DEC=80 11:05 T13 SRO & PSW DUAL ADDRESSING TEST SEQ 0037 
1766 ;* TO THE PSW_AND THAT THE LOW BYTE OF STATUS REGISTER 0 
1767 $* IS NOT EFFECTED BY WRITING TO ITS HIGH BYTE. THIS IS TO 
1s ;* SEE IF ADJACENT OUTPUTS ARE SHORTED ON THE ADDRESS DET. LOGIC. 
7 
1770 BUSI I IOI I ROR ICICI ICICI ICICI ICICI IIIT IOI ITT TTT AI AAIAAIIAASISISASI ASAIN 
44 022144 000004 TST13: SCOPE 
1773 022146 005037 177776 1$: CLR PSW ;CLEAR THE PSW 
1774 022152 005037 177572 CLR SRO :CLEAR STATUS REGISTER 0 
1775 022156 106427 0003540 MTPS #34 ;SET PRIORITY 7 IN LOW BYTE OF PSW 
1776 022162 013700 177572 MOV SRO ,RO ;READ STATUS REGISTER 0 
1777 022166 001401 BEQ 2$ ;BRANCH IF IT WAS STILL 0 
1778 022170 104015 ERROR 13 ;SRO EFFECTED BY A URITE TO THE PSW 
1779 7FOR TIGHTER SCOPE LOOP 
1780 ; REPLACE ERROR _CALL WITH 
1781 ;‘BR 1$°* = 000767 
1782 022172 005037 177572 2$: CLR SRO BE SURE SRO IS 0 BEFORE LEAVING 
ie 022176 005037 177776 CLR PSW ;BE SURE PSW IS 0 BEFORE LEAVING 
1785 SD RT RII IOI TIT T R IRIRKEEEREEREEEEEEREEREEREERR EEER EH 
1 s*TEST 14 TEST THAT SR1 READS ALL ZEROS 
*«* 
1788 :* THIS TESTS CHECKS THAT STATUS REGISTER 1 
1789 °* RESPONDS WITH ALL ZEROS, AND THAT ONLY BITS<5:4> 
ia. "ha OF STATUS REGISTER 3 ARE WRITEABLE. 
** 
1792 Pettitt ti tittitiiitititiiiiiii iii tee 
1793 022202 000004 TST14: SCOPE 
1794 022204 012700 177777 1$: MOV #-1,R0 sFILL RO WITH ALL ONES 
1795 022210 013700 177574 MOV SR1,RO ;READ SR1_ INTO RO 
1796 022214 001401 BEQ 2$ BRANCH IF SR1 READS ALL ZEROS 
1797 022216 104014 ERROR 14 ;SR1 DID NOT READ ALL ZEROS 
1798 ;FOR TIGHTER SCOPE LOOP 
1a BOT7o ERROR CALL WITH 
1801 022220 012737 177777 172516 2%: MOV #~1,SR3 ;TRY TO WRITE ONES TO SR3 
1802 022226 022737 000060 172516 CMP 460,SR5 :ONLY BITS <5:4> SHOULD BE ONES 
1803 022234 001401 BEQ =s3$ 
1804 022236 104012 ERROR 12 ;DIDN*T READ BACK A *'60°' 
1805 022240 1057357 001246 3$: TSTB QASENV ZTEST APT ENVIRONMENT BIT 
1806 022244 001406 BEQ 6$ :1F CLEAR, NOT ON APT SO DO TEST 
1807 022246 005737 0012354 TST @ASPASS ;IF ON APT TEST PASS rs 
1808 022252 001403 BEQ 6$ :IF CLEAR, FIRST PASS SO DO TEST 
1809 022254 005037 172516 CLR SR3 :IF ON APT AND NOT FIRST PASS FUDGE TEST 
1810 022260 000401 BR 7$ 
1811 022262 000005 6$: RESET CLEARS SR3 
1812 022264 005737 172516 7$: TST SR3 :VERIFY THAT IT WAS CLEARED 
1813 022270 4$: 
1814 022270 001403 BEQ TST15 ; sBRANCH IF SR3 READ ALL ZEROS 
aEtz 02227? 104012 ERROR 12 :$R3 DIDN'T READ ALL ZEROS 
1817 
1818 
1819 DSSS IOI IID IOI IOUT IR IR ERE R ERE RE RR REE AER ERS 
aS s*TEST 15 BIT TEST OF KERNEL & USER PAR‘S 
** 
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14-JAN-81 11:36 PAGE 38 
BIT TEST OF KERNEL & USER PAR’S 


.* THE FOLLOWING TEST CHECKS THE BITS <15:00> OF BOTH THE KERNEL 
:* AND USER PAGE ADDRESS REGISTERS. A ‘'0'’ IS ROTATED THRU 
oe THE REGISTERS FROM LEFT TO RIGHT. 
** 
BSR IOI ICICI ICICI ICIOIOIOIOIOI IERIE III I TOI TOT ITT ATTA IIAAIAS IASI SI ISS ISAS AIS 
1ST15: SCOPE 
1$: MOV #KIPARO,RO : LOAD ADDRESS oF FIRST PAR IN RO 
2$: MOV #10,R3 “SETUP R3 TO COUNT 8 PAR'S 
MOV #33.$LPERR SET LOOP on ERROR POINTER 10 3$ 
3$: CLR (RO) “CLEAR THE PAR 
MOV (RO) .R1 “READ THE PAR INTO R1 
BEQ 4$ : BRANCH IF PAR CLEARED OK 
ERROR 11 AR WOULD NOT CLEAR 
FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
:'BR 38" = 000774 
4$: MOV #077777 RS “LOAD ‘WALKING O°’ TEST PATTERN IN R4 
MOV #5$,$LPERR SET LOOP ON ERROR POINTER TO 5$ 
S$: CLR (RO) “CLEAR THE PAR BEFORE LOADING DATA 
BIS R4, (RO) “BIT SET THE TEST PATTERN INTO THE PAR 
MOV (RO) .R2 “READ THE PAR INTO R2 
CMP R4,R2 “DOES DATA WRITTEN=DATA READ? 
BEQ 6$ ‘BRANCH IF YES 
MOV 4,R1 “SETUP FOR ERROR REPORTING 
ERROR 1 “PAR BITS DID NOT SET CORRECTLY 
“FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
:*BR 5$'' = 000767 
6$: SEC “SET THE C-BIT FOR THE ROTATE INST. 
ROR R4 “ROTATE THE TEST PATTERN IN R4 
BCS 5$ “BRANCH BACK IF MORE BITS TO TEST 
ADD #2,R0 “GET NEXT PAR ADDRESS IN RO 
SOB R3,3$ “BRANCH BACK UNTIL ALL PAR'S TESTED 
CMP HUIPAR7+2,RO HAVE USER PAR'S BEEN TESTED 
BHIS “BRANCH IF YES 
MOV HUIPARO,RO ;LOAD FIRST USER PAR ADDR. IN RO 
BR CH BACK TO TEST USER PAR" 
7$: MOV #1$.$LPERR “RESET LOOP OR ERROR POINTER TO 1$ 


:LEAVE TEST WITH BITS <11:1>=1 OWN ALL PAR*S 


PUTT TTTTTT TTT TTT TTT TTT TTT TTT Tee TTT ete 


TEST 16 BIT TEST OF KERNEL & USER PDR‘S 


THE FOLLOWING TEST CHECKS THE BITS <14:8> AND <3:1> OF BOTH THE 
KERNEL AND USER PAGE DESCRIPTOR REGISTERS. A ‘0’ IS ROTATED 
THRU: THE REGISTERS FROM LEFT TO RIGHT. SOME TEST PATTERNS WILL 
BE LOADED MORE THAN ONCE DUE TO THE UNUSED BITS IN THE PDR'S. 


HERRERA KR REE EEEEEEEEREEEKE EEK EEREERAE RE RAEREAEREERERERERERRE RES 


LA N)— ——Gte Be Be Be Be Be Be 
FP AMA WM: (oe ee ei 
ee ee te comand 

—_— 

oO 


SCOPE 

MOV #KIPDRO,RO ;LOAD ADDRESS OF Ay ate IN RO 
MOV #10,R ;SETUP R3 TO COUNT 

MOV #3$,$LPERR SET ve ON ERROR POINTER TO 3$ 
CLR (RO) :CLEAR T 


HE PDR 
MOV (RO) ,R1 sREAD THE PDR INTO R1 





ow wr ms eee ee 
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BEQ 4$ 
ERROR 117 


4$: MOV #077777,R4 
MOV #5$,$LPERR 
5$: CLR (RO) 
MOV 
BIC B150861.. R1 
BIS R1, (RO) 
MOV (RO) R2 
CMP 1,R2 
BEQ RS 
ERROR 12 
6$: SEC 
ROR R4 
BCS 5$ 
ADD #2,R0 
SOB R3,3$ 
CMP #UIPDR7+2,RO 
BHIS 
MOV #UIPDRO,RO 
BR $ 
7$: MOV #1$,.$LPERR 


N 3 
11:36 PAGE 39 
BIT TEST OF KERNEL & USER PDR'S 


;BRANCH IF PDR CLEARED OK 


;PDR WOULD NOT CLEAR 
:FOR TIGHTER SCOP 


E LOOP 
| ; REPLACE ERROR CALL WITH 
;'' BR = 0007; 


R 3$"' 
; LOAD "WALKING ‘0°’ TEST PATTERN _IN R4 
:SET LOOP ON ERROR POINTER TO 5$ 
;CLEAR THE PDR BEFORE LOADING DATA 
;LOAD DATA INTO R1 
sMASK UNUSED BITS OUT OF THE DATA 
;BIT SET THE TEST PATTERN INTO THE PDR 
READ THE PDR INTO R2 
[DOES DATA WRITTEN=DATA READ? 
sBRANCH IF YES 
;PDR BITS DID NOT SET CORRECTLY 
;FOR TIGHTER SCOPE LOOP 


REPLACE ERROR CALL WITH 
5 5$°* = 000767 
;SET THE C-BIT FOR THE gt Sele 


sROTATE THE TEST PATTERN IN 

:BRANCH BACK IF MORE BITS TO TEST 

:GET NEXT PDR ADDRESS IN RO 

;BRANCH BACK UNTIL ALL PDR'S TESTED 
SHAVE USER PDR'S BEEN TESTED? 

“BRANCH IF YES 

;LOAD FIRST USER PDR ADDR. IN RO 
:BRANCH BACK TO TEST USER PDR'S 

;RESET LOOP ON ERROR POINTER TO 1$ 
LEAVE TEST “ ALL WRITEABLE BITS IN 


TALL PDR'S = 


© REE REKERKKE EEE EKEKKKKEKEAEKEKEKEREKAEEKEEEEEEKEKEEEEERE 


**TEST 17 
*® 


°. 
** 

ze THE OTHER. 
*® 

S117: SCOPE 


TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PAR'S 


THE FOLLOWING TEST WRITES TO BOTH BYTES OF THE KERNEL & USER 
PAR"S SEPERATELY TO SEE THAT WRITING TO ONE DOES NOT EFFECT 


TPA RESAAAAASASEASAASASASZASARAALALALASARASL SEALERS AAS ASAS ASA ASAD SS SS, 


ee re ee ee me ee 


SEQ 0039 


A ee ee. - 
—_  — ee ee ee ee ee 


ee 1 ee 


CJKDADO KTF11~AA MMU DIAG MACY11 — att ten bo 11:36 


PAGE 40 
T FOR DUAL BYTE ADDRESSING OF KERNEL & USER PAR'S 


C JKDAD.P11 19=DEC-80 11:05 SEQ 0040 
1918 
1919 022536 012700 172340 1$: MOV #KIPARO,RO :LOAD ADDRESS OF FIRST PAR INTO RO 
1920 022542 012737 022554 001110 2$: MOV #3$,$LPERR ;SET LOOP ON ERROR POINTER TO 3$ 
1921 022550 012703 000010 MOV #10,R3 “LOAD LOOP COUNTER TO DO 8 PAR'S 
1922 022554 012701 177777 3$: MOV #=1.R) | ‘TOAD TEST PATTERN INTO R1 
1923 022560 005010 CLR (RO) “CLEAR THE PAR 
1924 022562 110110 MOVB _—R1,, (RO) “WRITE 1°S TO THE LOW BYTE OF THE PAR 
1925 022564 011002 MOV (RO) ,R2 “READ THE ENTIRE PAR INTO R 
1926 022566 042701 177400 BIC #177400,R1 “MASK HIGH BYTE & UNUSED BITS OUT OF THE DATA 
1927 022572 020102 CMP R1,R2 “WAS ONLY THE LOW BYTE WRITTEN TO 
1928 022574 001401 BEQ 4$ “BRANCH IF YES 
1929 022576 104015 ERROR 15 “HIGH BYTE EFFECTED BY WRITING LOW BYTE IN PAR 
1930 “FOR TIGHTER SCOPE LOOP 
1931 ; REPLACE, ERROR CALL WITH 
1932 :' BR 3$'' = 000766 
1933 022600 012737 022606 001110 4$: MOV #5$,$LPERR “SET LOOP ON ERROR POINTER TO 5$ 
1934 022606 005010 5$: CLR (RO) “CLEAR THE PAR 
1935 022610 012701 177777 MOV #-1,R1 ;LOAD TEST, PATTERN INTO R1 
193% 022614 110160 000001 MOVB _—R1,,1 (RO) WRITE 1°S TO THE HIGH BYTE OF THE PAR 
1937 622620 011002 MOV (RO) .R2 “READ THE ENTIRE PAR INTO R2 
1938 022622 042701 000377 BIC #000377,R1 *MASK LOW BYTE 
1939 022626 020102 CMP R1,R2 “WAS ONLY THE HIGH BYTE WRITTEN 10? 
1940 022630 001401 BEQ 6$ “BRANCH IF YES 
1941 022632 104015 ERROR 15 “LOW BYTE EFFECTED BY WRITING HIGH BYTE IN PAR 
1942 “FOR TIGHTER SCOPE LOOP 
1943 :RE PLACE ERROR CALL WITH 
1944 "BR 5’ = 000765 
1945 022634 062700 000002 6$: ADD #2,RO “PUT ADDRESS OF NEXT PAR IN RO 
1946 022640 077333 SOB R3, 3$ “BRANCH BACK UNTIL 8 PAR'S TESTED 
1947 022642 022700 177660 CMP HUIPAR7+2,RO  :HAVE USER PAR'S BEEN TESTED 
1948 022646 103003 BHIS 7$ “BRANCH IF YES 
1949 022650 012700 177640 MOV HUIPARO,RO =LOAD ADDRESS OF FIRST USER P PAR IN RO 
1950 022654 000732 BR “BRANCH BACK TO TEST USE.2 PAR'S 
1951 022656 012737 022536 001110 7%: MOV #1$,$LPERR “RESET LOOP ON ERROR SOINTER TO 1$ 
1953 SRE EKEEEEREKEEREEEEREKEEEEKREREEKEKEEEEEEKKEEKEREREKREEEREREER 
1954 “STEST 20 TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PDR'S 
on 
1956 Z THE FOLLOWING TEST WRITES TO BOTH BYTES OF THE KERNEL & USER 
1957 zt PDR'S SEPERATELY TO SEE THAT WRITING TO ONE DOES NOT EFFECT 
Lb > ie THE OTHER. 
** 
1960 BIRO NISIDIOISIISIEISIEEIOI IOC ISIOIICIIIIOIINIIOIOINIIOOIOIIUOI I IOI t 
1961 022664 000004 TST20: SCOPE 
1963 022666 012700 172300 1$: MOV #KIPDRO,RO :LOAD ADDRESS OF FIRST PDR INTO RO 
1964 022672 012737 022704 001110 2$: MOV #3$,$LPERR ;SET LOOP ON ERROR POINTER TO 3$ 
1965 022700 012703 00v01 MOV #10,R3 “LOAD LOOP COUNTER TO DO 8 PDR'S 
1966 022704 012701 177777 3$ MOV #-1.R1 ‘TOAD TEST PATTERN INTO R1 
1967 022710 005010 CLR (RO) *CLEAR THE PDR 
1968 022712 110110 MOVB _—R1,, (RO) “WRITE 1°S TO THE LOW BYTE ao THE PDR 
1969 022714 011002 MOV (RO) ,R2 “READ THE ENTIRE PDR INTO R 
1970 022716 042701 177761 BIC #177761,R1 “MASK HIGH BYTE & UNUSED BITS OUT OF DATA 
1971 022722 020102 CMP R1,R2 “WAS ONLY THE LOW BYTE WRITTEN TO? 
1972 022724 001401 BEQ 4$ “BRANCH IF YES 
1973 022726 104015 ERROR 15 “HIGH BYTE EFFECTED BY WRITING LOW BYTE IN PDR 


eee eae 


eee e+ eee _— — eee ee ee ——- ee & — oe —_ 
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CJKDADO KTF11=AA MMU 41 
TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PDR'S 


DIAG MACY11 30A(1052) 
CJKDAD.P11 19=DEC-80 11:05 T20 


SEQ 0041 








:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;'BR 3$'* = 0007 


022730 012737 022736 001110 4$: MOV #5$,$LPERR SET LOOP ON ERROR POINTER TO 5$ 
022736 005010 5$: CLR (RO) “CLEAR THE PDR 
022740 012701 177777 MOV #-1,R1 ; LOAD TEST PATTERN INTO R1 
022744 110160 000001 MOVB _—R1,1 (RO) WRITE 1°S TO THE HIGH BYTE OF THE PDR 
022750 011002 MOV (RO) .R2 READ THE ENTIRE PDR INTO R2 
022752 042701 100377 BIC #100377,R1 “MASK LOW BYTE & UNUSED BITS OUT OF DATA 
022756 020102 CMP R1,R2 WAS ONLY THE HIGH BYTE WRITTEN TO? 
22760 00140 BEQ 6$ ; BRANCH IF YES 
022762 104015 ERROR 15 “LOW BYTE EFFECTED BY WRITING HIGH BYTE IN PDR 
FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
‘BR 5$'' = 000765 
022764 062700 000002 6$: ADD #2,RO0 “PUT ADDRESS OF NEXT PDR IN RO 
022770 077333 SOB R3.3$ :BRANCH BACK UNTIL 8 PDR'S TESTED 
022772 022700 177620 CMP #UIPDR7+2,RO  :HAVE USER PDR'S BEEN TESTED? 
022776 103003 BHIS 7$ ‘BRANCH IF YES 
23000 012700 177600 MOV #UIPDRO,RO SLOAD ADDRESS OF FIRST USER PDR IN RO 
023004 000732 BR “BRANCH BACK TO TEST USER PDR'S 
023006 012737 022666 001110 7%: MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
SERA REREKEEREREEE EEE REE KEKEEEAEKEEKEEEKEERREEREEEREREEEEERHRER EE 
<STEST 21 PAR=PDR DUAL ADDRESSING TEST 
“* 
:* THE FOLLOWING TEST SETS "ALL OF THE WRITEABLE BITS TO 1 
* IN THE SIXTEEN (16) PAR'S AND PDR'S USING THE ‘'SETREG'’ 
ze SUBROUTINE AND THEN CLEARS JUST ONE OF THEM. THE ‘'CMPREG'’ 
:* SUBROUTINE IS USED TO READ ALL OF THE PAR'S AND PDR'S TO SEE 
:* THAT ONLY ONE REGISTER WAS CLEARED IN RESPONSE TO THAT ONE 
:* PAR OR PDR ADDRESS. THE ‘‘CMPREG'’ SUBROUTINE REPORTS THE 
i* ADDRESS OF ANY REGISTER WHOSE BITS DID NOT REMAIN SET WHEN 
:* ANOTHER REGISTER WAS CLEARED. 
. zs RAREST KAEEAREEAEEAAEEEEKAAEKREAAKEAEAAERKREEEEEAAARERAAEEEREREEK 
023014 000004 TST21: SCOPE 
023016 012737 023040 001110 1$: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER 2$ 
023024 012703 000010 MOV #10,R3 “LOAD LOOP COUNTER WITH AN 8 
023030 012700 172300 MOV #KIPDRO,RO “LOAD ADDRESS OF FIRST KERNEL PDR AND RO 
23034 004737 035334 JSR PC, SETREG “SET ALL BITS IN ALL PAR'S IN PDR'S 
023040 012706 001100 2$: MOV #KERSTK,KSP “SETUP STACK POINTER 
023044 005010 CLR (RO) “CLEAR ONE OF THE KERNEL PDR'S 
23046 737 035426 JSR PC, CMPREG “SEE IF OTHER PAR/PDR'S WERE EFFECTED 
023052 012720 177777 MOV #-1,(RO)+ :RES TORE ALL ONES, AND SETUP FOR NEXT PDR 
023056 077310 SOB R3,2$ OOP TO 2$ UNTIL ALL KERNEL PDR'S CHECKED 
23060 012737 023076 001110 MOV #3$,$LPERR “SET LOOP ON ERROR POINTER TO 3$ 
23 012703 000010 MOV #10,R3 “LOAD LOOP COUNTER WITH AN 8 
02307 2700 172340 MOV #KIPARO,RO sad ADDRESS OF FIRST KERNEL PAR IN RO 
023076 012706 001100 3$: MOV #KERSTK.KSP “SETUP STACK POINTER 
023102 005010 CLR (RO) CLEAR ONE OF THE KERNEL PAR'S 
023104 004737 035426 JSR PC, CMPREG “SEE IF OTHER PAR/PDR'S WERE EFFECTED 
023110 012720 177777 MOV #-1. (RO)+ “RESTORE ALL ONES, AND SETUP FOR NEXT PAR 
023114 077310 SOB R3, 3$ “LOOP TO 3s UNTIL ALL KERNEL PAR'S CHECKED 
023116 012737 023134 001110 MOV #4$,$LPERR “SET LOOP ON ERROR POINTER TO 4$ 
023124 012703 000010 MOV #10,R3 “LOAD LOOP COUNTER WITH AN 8 
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PAR=PDR DUAL ADDRESSING. TEST 


MOV #UIPDRO,RO ;LOAD ADDRESS OF FIRST USER PDR IN RO 
4$: MOV #KERSTK,KSP :SETUP STACK POINTER 
CLR (RO) :CLEAR ONE OF THE USER PDR'S 
JSR PC. CMPREG :SEE IF OTHER PAR/PDR'S WERE AMS 
MOV #-1,(RO)+ sRESTORE ALL ONES, AND SETUP FOR NEXT UPDR 
SOB R3,4$ ;LOOP TO 4$ UNTIL ALL USER PDR'S CHECKED 
MOV #5$,$LPERR : SET LOOP ON ERROR te TO 5$ 
MOV #10,R3 OAD LOOP COUNTER WITH 
MOV A#UIPARO,RO ;LOAD ADDRESS OF FIRST USER PAR IN RO 
5$: MOV #KERSTK,KSP :SETUP STACK POINTER 
CLR (RO) :CLEAR ONE OF THE USER P. 
JSR PC,CMPREG :SEE IF OTHER eae WERE Abs 
MOV #-1,(RO)+ :RESTORE ALL ONES, AND SETUP FOR NEXT UPAR 
SOB R3,5$ ;LOOP TO 5$ UNTIL ALL USER PAR‘S CHECKED 
MOV #1$,$LPERR [SET LOOP ON ERROR POINTER TO 1$ 
RRR ER REE RAKE REE EEE RE EKEEEEAEKEREREKEREEEKREEEKEEEEREEERERERERE 
:RTEST 22 TEST THAT PAR=PDR'S NOT AFFECTED BY RESET 
** 
;* THIS TEST CHECKS TO SEE THAT THE KERNEL OR USER PAR/PDR‘S ARE 
:* NOT AFFECTED BY THE EXECUTION OF A “RESET’’ INSTRUCTION. THE 
o* "'SETREG’’ SUBROUTINE IS USED TO SET ALL WRITEABLE BITS TO A “"I"" IN 
o* THE PAR/PDR'S. THEN THEY ARE READ TO SEE THAT THEY REMAINED 
°* UNCHANGED 
** 
BIOSIS ICICI OCICS IIIA IIIS IISISISSISSAAISAN 
TST22: SCOPE 
TSTB OFSENV ;TEST APT ENVIRONMENT BIT 
BEQ 1$ :1F CLEAR, NOT ON APT SO DO TEST 
TST aASPASS :IF ON APT TEST PASS COUNTER 
BNE 10$ :I1F NOT FIRST PASS SKIP TEST 
1$: JSR PC,SETREG 3SET ALL BITS IN ALL PAR'S AND PDR'S 
RESET ; ISSUE AN “‘INIT'’ BY EXECUTING A RESET 
MOV #KIPDRO,RO [LOAD ADDRESS OF FIRST KERNEL PDR IN RO 
MOV #10,R4 [LOAD LOOP COUNTER WITH AN 8 
2$: MOV (RO) ,R1 : READ A KERNEL PDR INTO R1 
CMP #77416,R1 ARE ALL THE BITS STILL SET? 
BEQ 3$ ; H IF YES 
ERROR 55 ;KERNEL PDR AFFECTED BY A RESET 
:FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
;‘BR 2$"' 773 
3$: ADD #2,RO0 FORM ADDRESS OF NEXT KERNEL PDR 
SOB R4,2$ [LOOP TO 2$ UNTIL ALL KERNEL PDR'S CHECKED 
MOV #k IPARO,RO :LOAD ADDRESS OF FIRST KERNEL PAR IN RO 


MOV #10,R4 :LOAD LOOP COUNTER WITH AN & 
4$: MOV (RO) RI “READ A KERNEL PAR INTO R 
CMP #17777 RI “ARE ALL THE ITS STILL SET? 


5 :BRANCH IF 
ERROR 55 KERNEL PAR AFFECTED BY A RESET 
;FOR TIGHTER SCOPE LOOP 
REPLACE, E ERROR CALL WITH 
; FORM ADDRESS OF NEXT KERNEL PAR 


5$: ADD #2,R0 


SEQ 0042 


ee ee ce ee ee ae ee ee ES eee 
EE 
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CJKDAD.P11 19=DEC-80 1:05 T22 TEST THAT PAR=PDR‘'S NOT AFFECTED BY RESET SEQ 0043 

2086 023322 077410 S08 R4,4$ sLOOP TO 4$ UNTIL ALL KERNEL PAR'S CHECKED 

023324 012700 177600 MOV #UIPDRO,RO > LOAD ADDRESS OF FIRST USER PDR IN RO 
2088 0253 012704 000010 MOV #10,R4 > LOAD LOOP COUNTER WITH AN 8 

023334 11001 6$: MOV (RO) ,R1 “READ A USER PDR INTO R1 
2090 023336 022701 077416 CMP #77416,R1 ARE ALL THE BITS STILL SET? 
2091 023342 001401 BEQ 7$ = BRANCH IF YES 
2092 025344 104055 ERROR 55 a PDR AFFECTED BY A RESET 
2093 sFOR TIGHTER SCOPE LOOP 
2094 ; REPLACE ERROR CALL WITH 
2095 :'BR 6$'° = 000773 
2096 023346 062700 000002 7$: ADD #2,R0 = FORM ADDRESS OF NEXT USER PDR 
pied 023352 077410 SOB R4,6$ = LOOP TO 6$ UNTIL ALL USER PDR‘S CHECKED 
2099 023354 012700 177640 MOV #UIPARO,RO ;LOAD ADDRESS OF FIRST USER PAR IN RO 
2100 023360 012704 000010 MOV #10,R4 > LOAD LOOP COUNTER WITH AN 8 
2101 023364 011001 8$: MOV (RO) ,R1 = READ A USER PAR INTO R Rl 
2102 023366 022701 177777 CMP #177777,R1 SARE ALL THE BITS STILL SET? 
2103 023372 001401 BEQ 9$ :BRANCH IF YES 
2104 023374 104055 ERROR 55 ;USER PAR AFFECTED BY A RESET 
2105 ;FOR TIGHTER SCOPE LOOP 
2106 ; REPLACE ERROR CALL WITH 
2107 7'BR 8$'' = 000773 
2108 023376 062700 000002 9$: ADD #2,R0 ; FORM ADDRESS OF NEXT USER 
2109 023402 077410 SOB R4,8$ ;LOOP TO 8$ UNTIL ALL USER PAR’S CHECKED 
2110 023404 108: 
2111 SIRI RRR REE EREEERERREREREEEEEEEERERERERERE RE 
Siig = *TEST 23 RELOCATION & ADDER TEST (NO CARRIES) 

** 
2114 :* THE FOLLOWING TEST SETS UP THE KERNEL PAR‘S AND PDR'S 
2115 3* FOR THE REST OF THE PROGRAM. IT THEN USES DIFFERENT 
2116 :* VIRTUAL ADDRESSES AND DIFFERENT VALUES FOR KERNEL PAR 4 
2117 :* TO PUT DIFFERENT Ba yy AT THE INPUTS OF THE 
2118 ;* MEMORY MANAGEMENT ADDER. THE VALUES ARE SUCH 
5133 .* THAT NO CARRIES ARE GENERATED OUT OF THE ADDER. 
°* 

2121 3* THE METHOD USED TO SEE THAT THE RIGHT PHYSICAL BUS ADDRESS 
2122 3* IS FORMED BY THE ADDER IS TO WRITE A PATTERN TO VIRTUAL 
21235 o® LOCATION WITH MEMORY MGMT., AND 
2124 7* THEN READ THAT LOCATION USING THE PHYSICAL ADDRESS THAT SHOULD 
2125 3* HAVE BEEN FORMED TO SEE IF THE TEST PATTERN GOT THERE. 
2126 s* 22-BIT AND 18-BIT ADDRESSING ARE USED. 
2127 SERRE E ERK EER EEE AERA REREREKE ERA ARERR EEE RAE ER 
2128 023404 000004 TS123: SCOPE 
2130 023406 012700 172340 1$: MOV #KIPARO,RO :LOAD ADDRESS OF FIRST KERNEL PAR IN RO 
2131 023412 005001 CLR R1 ;CLEAR R1 
2132 023414 012702 000007 MOV #7 ,R2 :LOAD LOOP COUNTER WITH A 7 
2133 023420 010120 2$: MOV R1, (RO)+ =MAP KERNEL PAR'S TO PAGES 0-6 (4K EACH) 
2134 023422 2701 000200 ADD #200,R1 
2135 023426 077204 SOB R2,2$ *LOOP UNTIL KIPARO - etry ARE LOADED 
2136 023430 012710 177600 MOV #177600, (RO) ‘MAP KIPAR? TO THE I/O PAGE 
2137 34 012700 1723500 MOV #KIPDRO,RO :LOAD ADDRESS OF FIRST KERNEL PDR IN RO 
2138 023440 012701 077406 MOV #77406, R1 * LOAD PDR DATA INTO R1 
2139 023444 012702 000010 MOV #10,R2 = LOAD LOOP COUNTER WITH AN 8 
2140 023450 010120 3$: MOV R1, (RO) + “MAP ALL 8 PAGES 128 BLOCKS, UPWARD 
2141 023452 077202 SOB R2,3$ ; EXPANDABLE, READ/WRITE 
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214 
2143 023454 012737 023454 001110 4$: MOV #4$,$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
2144 023462 012700 067776 MOV #67776,RO “LOAD PHYSICAL ADDR. PBA INTO RO 
2145 02 012701 107776 MOV #107776,R1 :LOA D VIRTUAL ADDR. VBA INTO R1 
2146 023472 012702 125250 MOV #125250,R2 “LOAD TEST PATTERN INTO R2 
2147 023476 012704 000600 MOV #600,R4 :LOAD RG WITH PAR VALUE 
2148 023502 010437 172350 MOV R4.KIPARG : LOAD KERNEL PAR 4 BITS <15:00> 
2149 023506 011037 001176 MOV (RO) , $TMPO + SAVE CONTENTS AT TEST LOCATION 
2150 023512 005037 172516 CLR SR3 “SET UP FOR 18 BIT ADDRESSING 
3151 023516 052737 000001 177572 BIS #81T0,SRO *TURN ON ON MEM. MGNT. 
2152 023524 010211 MOV R2,(R1) ; LOAD 125250 USING ADDER (PAR4 + VI?T ADDR.) 
2153 023526 005037 177572 CLR SRO OFF MEMORY 
2154 023532 011003 MOV (RO) .R3 “READ 125250 BACK WITHOUT USING MEM. MGMT 
2155 023534 013710 001176 MOV $TMPO, (RO) ; RESTORE ORIGINAL CONTENTS TO TEST LOC. 
2156 023540 020203 CMP R2,R3 WAS SAME PATTERN READ BACK THAT WAS 
2157 :WRITTEN USING MEMORY MANAGEMENT? 
2158 023542 001405 BEQ $ CH IF YES 
2159 023544 010137 001306 MOV R1,VIRT1 “SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
2160 023550 004737 035620 JSR PC FORMPA =GO FORM PHYSICAL ADDRESS FOR TYPING 
2161 0623554 104017 ERROR 17 “TEST LOCATION DID NOT HAVE PATTERN 
2162 >THAT SHOULD HAVE BEEN WRITTEN TO IT. 
2163 ; APPARENTLY PHYSICAL ADDR. WAS 
2164 “FORMED WRONG BY ADDERS USING 
2165 “THE VIRTUAL ADDR. AND KIPAR4 
2166 *FOR TIGHTER SCOPE LOOP 
2167 ; REPLACE ERROR CALL WITH 
2168 "BR 4$'° = 000742 
2169 023556 5$: 
3170 023556 012737 023556 001110 6$: MOV #6$,$LPERR :SET LOOP ON ERROR POINTER TO 6$ 
2171 023564 012700 067776 MOV #67776,RO *LOAD PHYSICAL ADDR. PBA INTO RO 
2172 023570 012701 102576 MOV #102576,R1 ; LOAD VIRTUAL ADDR. VBA INTO R1 
2173 023574 012702 125251 MOV #125251,R2 “LOAD TEST PATTERN INTO R2 
2174 023600 012704 000652 MOV #652.R4 :LOAD R4 WITH PAR VALUE 
2175 023604 010437 172350 MOV R4,KIPARG :LOAD KERNEL PAR 4 BITS <15:00> 
2176 023610 011037 001176 MOV (RO) ,.$TMPO “SAVE CONTENTS AT TEST LOCATION 
2177 023614 005037 172516 CLR SR3 SET UP FOR 18 BIT ADDRESSING 
2178 023620 052737 000001 177572 BIS #81T0,SRO *TURN ON MEM. MGNT. 
2179 023626 010211 MOV R2, (R1) ; LOAD 35057 “USING ADDER (PAR4 + VIRT ADDR.) 
2180 023630 005037 177572 CLR SRO OFF MEMORY MGMT. 
2181 023634 011003 MOV (RO) .R3 “READ 125251 BACK WITHOUT USING MEM. MGMT. 
2182 023636 013710 001176 MOV $TMPO, (RO) “RESTORE ORIGINAL CONTENTS TO TEST LOC. 
2183 023642 020203 CMP R2,R3 ‘WAS SAME PATTERN READ BACK THAT WAS 
2184 :WRITTEN USING MEMORY MANAGEMENT? 
2185 023644 001405 BEQ 7$ “BRANCH IF Y 
2186 023646 019137 001306 MOV R1,VIRT1 “SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
2187 023652 004737 035620 JSR PC. FORMPA *GO FORM PHYSICAL ADDRESS FOR TYPING 
2188 023656 104017 ERROR 17- ‘TEST LOCATION DID NOT HAVE PATTERN 
2189 “THAT SHOULD HAVE BEEN WRITTEN TO IT. 
2190 “APPARENTLY PHYSICAL ADDR. WAS 
2191 * FORMED BY ADDERS USING 
2192 ; THE VIRTUAL ADDR. AND KIPAR4 
2193 FOR TIGHTER SCOPE LOOP 
2194 ; REPLACE ERROR CALL WITH 
2195 :'BR 6$"° = 000742 
2196 023660 7$: 
2197 023660 012737 023660 001110 8$: MOV #8$,.$LPERR :SET LOOP ON ERROR POINTER TO 8$ 
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2198 023666 012700 0677 MOV #67776,RO :LOAD PHYSICAL ADDR. PBA INTO RO 
2199 023672 012701 tte MOV #105276, R1 ; LOAD VIRTUAL ADDR. VBA INTO R1 
2200 023676 012702 125252 MOV #125252,R2 “LOAD TEST PATTERN INTO R2 
2201 023702 012704 25 MOV W625. RG :LOAD R4- WITH PAR VALUE 
2202 023 010437 172350 MOV KIPAR4 : LOAD KERNEL PAR 4 BITS <15:00> 
2203 023712 011037 001176 MOV FROD, $TMPO : SAVE CONTENTS AT TEST LOCATION 
2204 023716 052737 000020 172516 BIS #BIT4,SR3 SET UP F OR 22 BIT ADDRESSING 
2205 023724 052737 000001 177572 BIS #B1T0.SRO TURN ON MEM. MGNT. 
2206 023732 010211 MOV R2,(R1) “LOAD iases2. USING ADDER (PARG + VIRT ADDR.) 
2207 023734 005037 177572 CLR SR) “TURN OFF MEMORY MGMT. 
2208 023740 01100 MOV (RO) .R3 “READ 955259 BACK WITHOUT USING MEM. MGMT. 
2209 023742 013710 001176 MOV STMPO. (RO) ;RESTORE OR ORIGINAL CONTENTS TO TEST LOC. 
2210 023746 020203 CMP R2,R3 WAS SAME PATTERN READ BACK THAT WAS 
2211 “WRITTEN USING MEMORY MANAGEMENT 1? 
2212 023750 001405 BEQ 9$ “BRANCH IF YES 
2213 023752 010137 001306 MOV R1,VIRT1 “SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
2214 023756 004737 035620 JSR PC; FORMPA *GO FORM PHYSICAL ADDRESS FOR TYPING 
2215 023762 104017 ERROR 17 *TEST LOCATION DID NOT HAVE PATTERN 
2216 *THAT SHOULD HAVE BEEN WRITTEN TO IT. 
2217 ;APPARENTLY PHYSICAL ADDR. WAS 
2218 *FORMED WRONG BY ADDERS USING 
2219 ; THE VIRTUAL ADDR. AND KIPAR4 
2220 “FOR TIGHTER SCOPE LOOP 
2221 ;REPLACE ERROR CALL WITH 
2222 "BR 8$'' = 000742 
2228 023764 9$: 
2225 023764 012737 023764 001110 10$: MOV #10$, SLPERR :SET LOOP ON ERROR POINTER TO 10$ 
2226 023772 012700 177776 MOV #PSW.RO “LOAD PHYS. ADDR. OF PSwW INTO RO 
2227 023776 012701 10007 MOV 7100076. R1 “LOAD VIRTUAL ADDR. FOR PSW INTO R1 
2228 024002 012702 030340 MOV #030340,R2 “LOAD DATA FOR PSW IN R2 
2229 024006 012704 007777 MOV #7777 ke “LOAD R4 WITH PAR VALUE 
2230 024012 010437 172350 MOV R4,.KIPARG “LOAD KERNEL PAR 4 BITS <11:00> 
2231 024016 005010 CLR (RO) ; CLEAR THE PSW 
2232 024020 005037 172516 CLR SR3 *SET UP FOR 18 BIT ADDRESSING 
2233 024024 052737 000001 177572 BIS #B1T0.SRO : ON MEMORY MANAGEMENT 
2234 024032 010211 MOV 2, (R1) ; LOAD PSwW USING ADDER (PAR4 + VIRT ADDR.) 
2235 024034 005037 177572 CLR 0 OFF MEM. MGMT (SRO=0) 
2236 024040 011003 MOV (RO) .R3 “READ PSW BACK WITHOUT USING MEM. MGMT. 
2237 024042 005010 CLR (RO) : CLEAR THE P 
2238 024044 042703 000037 BIC #37,R3 K Tarr "s CC BITS OUT OF DATA READ 
2239 024050 020203 CMP R2,R3 cUAS PSW WRITTEN? 
2240 024052 001405 BEQ 11$ =BRANCH IF YES 
2241 024054 010137 001306 MOV R1,VIRT1 - SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
2242 024060 004737 035620 JSR PC. FORMPA =GO FORM PHYSICAL ADDR. FOR TYPING 
2243 024064 104017 ERROR 17 =PSwW DID NOT HAVE DATA THAT IT SHOULD HAVE, 
2264 “APPARENTLY PHYS. ADDR. OF PSwW WAS 
2245 “NOT FORMED BY ADDERS USING THE 
2246 “VI ADDR. AND K 
2247 “FOR TIGHTER SCOPE LOOP 
2248 SREPLACE ERROR CALL WITH 
2269 "BR 10$'' = 000742 
2250 024 012737 024066 001110 11$: MOV #11$,$LPERR “SET LOOP ON ERROR POINTER TO 11% 
2251 024074 012700 177776 MOV #PSW._RO “LOAD PHYS. ADDR. OF PSwW INTO RO 
2252 024100 012701 117776 MOV #117776,.R1 “LOAD VIRTUAL ADDR. FOR PSwW INTO R1 
2253 024104 012702 030240 MOV #030240,R2 “LOAD DATA FOR PSW IN R2 
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RELOCATION & ADDER TEST 


MOV 


#177600 ,R4 


1 
R1,VIRT1 
aati 


#1$,$LPERR 


H 4 
PAGE 


46 
(NO CARRIES) 


;LOAD R4 WITH PAR VALUE 
;LOAD KERNEL PAR 4 BITS <15:00> 
sSET UP FOR 22 BIT too st hn a 


; TURN ON MEMORY MANAGEMEN 

:LOAD PSW USING ADDER (PAR4 + VIRT. ADDR.) 
;TURN OFF MEM. MGMT (SRO=0) 

:READ 4 BACK WITHOUT USING MEM. MGMT. 
*CLEAR T HE PSW 

MASK T-BIT & CC thie OUT OF DATA READ 
“WAS PSW WRITTEN? 

;BRANCH IF YES 

;SAVE VIRTUAL ADDR. TO FORM PHYSICAL ADDR. 
:GO FORM PHYSICAL ADDR. ©OR TYPING 

;PSw DID NOT HAVE DATA THAT IT SHOULD 


“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
“RESET LOOP ON ERROR POINTER TO 1$ 


SRE REE REE EERE EERE REEEEREKREREREREEREREREREREEEE 


SRTEST 24 


$126: 


THE FOLLOWING TEST USES THE SAME METHOD 
MANAGEMENTS ABILITY TO CONSTRUCT 


CONTENTS OF A PAGE ADDRESS REGISTER. 


RELOCATION & ADDER TEST (WITH CARRIES) 


AS THE PREVIOUS 


HOWE 
AND PATTERNS USED IN THIS TEST WILL GENERATE CARRIES 
AND CHECK ‘WRAPAROUND’* TO ADDRESS 000000 


USING VIRTUAL ADDR. 111400 AND KIPAR4 = 


BY 
177664. 


22-BIT ADDRESSING IS USED. 


> RERAEKEKARAEREREREKEKEEREEEEEEKEAKKAEAEAAARAEAKEAEAEEEEKEREKEEREREKEEE 


SCOPE 


#2$,$LPERR 
#66476,R0 

#114376,R1 
#125253,R2 


#521,R4 ;LOAD R4 WITH PAR 
ARS E 


3$ 
R1,VIRT1 
PC ,FORMPA 


;KERNEL PAR'S AND PDR'S HAVE BEEN 


; LOAD UAL ADDR. 
:LOAD TEST PATTERN INTO R2 


VALUE 

ok KERNEL PAR 4 BITS <15:00> 
:SAVE CONTENTS AT TEST LOCATION 
:SET UP FOR 22 BIT ADDRESSING 


.F ON MEM. MGNT. 
; LOAD 125253 USING ADDER (PAR4 + VIRT ADDR.) 


; TURN OFF MEMORY if 

READ 125253 BACK WITHOUT USING MEM. MGMT. 

; RESTORE ORIGINAL CONTENTS TO TEST LOC. 
WAS SAME PATTERN READ BACK THAT WAS 

“WRITTEN USING MEMORY MANAGEMENT? 

:BRANCH IF YES 

;SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 

:GO FORM PHYSICAL ADDRESS FOR TYPING 


SEC 0046 


poset 





CJKDADO KTF11=AA MMU D 
CJKDAD P11 


Nm 
ww 
_ 
© 


WANNAANAAAAS 
TO Re ee 


ROR 
FW" OV@ONOUSwr— 


MMMM NINN NNN NNNoNrvy 


CAC CY AAA AA 
FUNZSSOVET 
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024500 
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0047 
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000001 
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001176 
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024410 
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001176 
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3$: 
001110 4$: 


5$: 
001110 6$: 
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RELOCATION & ADDER TEST 


ERROR 


17 


ods $LPERR 


R4.KIPA 


(RO) , STMPO 
#B1T4,SR3 
#B1T0,SRO 
R2,(R1) 
SRO 

(RO) ,R3 
$TMPO , (RO) 
R2,R3 


5$ 
R1,VIRT 


RT1 
PC ,FORMPA 


17° 


ee ee 


Re ; LOAD 
#527 ,R4 aa R4 WITH can VALU 


-_—-2 ——- 


47 
(WITH CARRIES) 


; TEST LOCATION DID NOT HAVE PATTERN 
; THAT SHOULD HAVE BEEN WRITTEN TO IT. 
; APPARENTLY PHYSICAL ADDR. WA 

WRONG BY ADDERS USING 


; REPLACE ERROR _CALL WITh 
:'BR 2$°* = 000742 


:SET LOOP ON ERROR POINTER TO 4$ 

[LOAD PHYSICAL ADDR. PBA INTO RO 

sLOAD V VIRTUAL ADDR. VBA INTO R1 
AD TEST PATTERN INTO R2 


E 
sl KERNEL PAR 4 BITS <15:00> 
:SAVE CONTENTS AT TEST LOCATION 
:SET te OR 22 BIT ADDRESSING 


MEM. MGNT. 
S LOAD 125254 USING ADDER (PAR4 + VIRT ADDR.) 
OFF MEMORY 


; TURN O 

TREAD 125254 BACK WITHOUT USING MEM. MGMT. 

RESTORE ORIGINAL CONTENTS * Bt LOC. 
SAME PATTERN READ BACK T WAS 

‘WRITTEN USING MEMORY MANAGEMENT? 

:BRANCH IF YES 

:SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 

:GO FORM PHYSICAL ADDRESS FOR TYPING 

; TEST LOCATION DID NOT HAVE PATTERN 

;THAT SHOULD HAVE BEEN WRITTEN TO IT. 

APPARENTLY Sg ap ADDR. 


sFOR TIGHTER SCOPE LOOP 
sREPLACE ERROR CALL WITH 
:"BR 4$°° = 000742 


#6$,$LPERR :SET LOOP ON ERROR POINTER TO 6$ 
#62076,RO “LOAD PHYSICAL ADDR. PBA INTO RO 
#104576,R1 ;LOAD V VIRTUAL ADDR. VBA INTO R1 
#125255.R2 LOAD TEST PATTERN INTO R2 
#553.R4 -LOAD R4 WITH PAR VALUE 
KIP :LOAD KERNEL PAR 4 BITS <15:00> 
(RO), STMPO > SAVE CONTENTS AT TEST LOCATION 
#BIT4,SR :SET UP FOR 22 BIT ADDRESSING 
#B1TO,SRO TURN ON ON REMC MGNT. 
R2,(R1 *LOAD 125255 USING ADDER (PAR4 + VIRT ADDR.) 
SRO “TURN OFF MEMORY MGMT. 
(RO) .R3 READ 135258 BACK WITHOUT USING MEM. MGMT. 
$TMPO, (RO) ; RESTORE ORIGINAL CONTENTS Tor TEST Loc. 
2,R3 WAS SAME PATTERN READ BACK THAT WAS 
WRITTEN USING MEMORY MANAGEMENT? 
7$ “BRANCH IF YES 
R1,VIRT1 “SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
PC: FORMPA “GO FORM PHYSICAL ADDRESS FOR TYPING 
17 “TEST LOCATION DID NOT HAVE PATTERN 


: THAT SHOULD HAVE BEEN WRITTEN TO IT. 


a ee ee 


SEQ 0047 
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02 
024612 
024616 


024620 
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024514 


000000 
141400 
125256 
177664 
172350 
001176 
000020 
000001 
177572 


001176 


001306 
035620 


024200 
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7$: 
001110 8$: 


001110 


Se Be Pe Be Be Fo Be Be Be Be Be Fe Bs Be Be Be Fe Be Be Fe 
enenepneneenenenaaeeenneene ee 8% 


TEST 25 


THE FOLLOWING TEST TURNS ON MEMOR 
te Sa LOCATIONS BETWEEN PHYSICAL ADDRESSES 


14-JAN-81 


J 4 
11:36 PAGE 4 


RELOCATION & ADDER TEST 


MOV wonbeD BO 


MOV #1%$,$LPERR 


READS 
60 


0 
IS WRITTEN USING PAR4 


OF THE 


8 
(WITH CARRIES) 
;APPARENTLY PHYSICAL ADDR. WAS 
: FORMED BY ADDERS USING 
; REPLACE, ERROR CALL WITH 
= 000742 


;‘BR 6$"° 
SET LOOP ON ERROR POINTER TO 


VALUE 

; BITS <15:00> 
: SAVE yeh AT TEST LOCATION 
:SET UP UP F af BIT ADDRESSING 


URN ON MGNT. 
+ LOAD 125256, USING ADDER 
OFF MEMORY 


:RESTORE OR 

:WAS SAME PATTERN READ BACK THAT 
[WRITTEN USING MEMORY MANAGEMENT? 
;BRANCH IF YES 


og Hf ogth a! ADDR. TO FORM PHYS. 
:GO FORM PHYSICAL ADDRESS FOR TY 
; TEST LOCATION DID NOT HAVE PAT 
; THAT SHOULD HAVE BEEN WRITTEN T 
;APPARENTLY PHYSICAL ADDR. WAS 

D WRONG BY ADDERS USING 


sREPLAC 
:'BR 8$"‘ = 
;RESET LOOP ON ERROR POINTER TO 


Y MANAGEMENT AND THEN 


ONE LOCATION IN EVERY BLOCK ee WORDS) 
READ USING PARS. THIS IS 


PRO 
1S CHECKED BY READING AND pond IN USER MODE. 
ALSO, THAT SINCE MEMORY G 


Y MANAGE 
MODE ) THE PROGRAM ITSELF IS USING ITS 
PAR/PDR'S 0-3 TO EXECUTE. 


I/O PAGE. 


T IS ON CIN RELOCATE 
VIRTUAL ADDRESSES 
PAR7/PDR7 ARE USED TO ACCESS 


(PAR4 + VIRT ADDR.) 


“READ 125256 BACK WITHOUT USING MEM. MGMT. 
he CONTENTS TO TEST LOC. 


WAS 


ADDR 
PING 
TERN 
0 If. 


1$ 


REECE EAEKEKEEEEEEEEAAEARAERAEEKAEEEKEERAEKEEAAEEAAEREAEAEEEE 


READ AND WRITE WHILE IN RELOCATE MODE 


AND 
THE 


WHILE TESTING IN KERNEL MODE, USER PAGES 4 & 5 ARE MAPPED 
NONRESIDENT WITH DIFFERENT PAR VALUES THAN T HE KERNEL 
PAR'S TO BE SURE THAT THE KERNEL PAR'S AND PDR*S ARE BEING 


ee ae wee 


_— ee eee ~_- —- o——  - Sa ———» — 
ae eee ee =—_—<_-—_-- —_—_——_—- 
- -- - 
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D AND WRITE WHILE IN RELOCATE MODE 


MACY11 30A(1052) 
T25 REA 


CJKDAD.P11 19=DEC-80 11:05 SEQ 0049 
2422 :* USED WHEN IN KERNEL MODE (AND VICE VERSA WHILE TESTING IN 
2423 :* USER MODE). IF A MEM. MGMT. TRAP OCCURS, THE PROGRAM GOES 
he “i TO 9$ WHERE THE TRAP IS REPORTED. 
*® 
2426 8 BY SETTING THE LOCATION $MADR1 IN THE E=TABLE TO A CONSTANT, 
2627 :* AS DESCRIBED IN THE DOCUMENTATION, THIS TEST WILL CONTINUE 
2628 :* ACCESSING LOCATIONS THROUGHOUT MEMORY BY INCREASING THE VALUE 
** 
2430 D piians vag peeede en eaaataandsasienchibeinabsaneseeorerorreneuntes 
3431 024626 000004 TST25: SCOPE 
2433 024630 005037 177776 1$: CLR W :START IN KERNEL MODE 
2434 026634 012704 000577 MOV #577 ,.R4 “LOAD R4 WITH VALUE FOR PAR 
2435 024640 012705 000600 MOV #600,R5 “LOAD RS WITH VALUE FOR PARS 
2436 024644 010437 172350 MOV R4,.KIPAR4 “LOAD KERNEL PAR4 
2437 024650 010537 172352 MOV R5.KIPARS “LOAD KERNEL PARS 
438 024654 012700 177640 MOV ARO, RO “LOAD ADDRESS OF FIRST USER PAR IN RO 
2439 024660 005001 CLR “CLEAR R1 
2440 024662 012702 000007 MOV #7,R2 *LOAD LOOP COUNTER WITH A 
2441 624666 010120 2$: MOV R1,(RO)+ “MAP USER PAR'S TO PAGES 0.6 (4K EACH) 
2442 024670 062701 000200 ADD #200,R1 
2443 024674 077204 SOB :LOOP UNTIL UIPARO-UIPAR6 ARE LOADED 
2444 024676 012710 177600 MOV #177600, (RO) *MAP USER PAR7 TO THE 1/0 PAGE 
2445 024702 012700 177600 MOV AUIPDRO,RO ;LOAD ADDRESS OF FIRST USER PDR IN RO 
2446 024706 012701 077406 MOV #77406,R1 “LOAD PDR DATA INTO R1 
2447 024712 012702 00001 MOV #10,R2 *LOAD LOOP COUNTER WITH AN 8 
2448 024716 010120 3$: MOV R1, (RO)+ *MAP ALL 8 PAGES 128 BLOCKS, UPWARD 
2449 024720 077202 SOB R2,3$ : EXPANDABLE, READ/WRITE 
2450 024722 012737 025010 001110 MOV #5$,$LPERR “SET LOOP ON ERROR POINTER TO 5$ 
2451 024730 012737 025274 000250 MOV #9$ .MMVEC -SET M. M. TRAP VECTOR TO 9$ 
3452 024736 052737 000020 172516 BIS #BIT4,SR3 :SET UP FOR 22 BIT ADDRESSING 
3453 024744 012737 000001 177572 MOV #B1T0,SRO TURN ON MEMORY MANAGEMENT 
2454 024752 105037 177610 10$: CLRB —UIPDR4 MAP USER SPACE NON-RESIDENT WHILE 
2455 026756 105037 177612 CLRB —CmUIPDRS : TESTING KERNEL SPACE 
2456 024762 010537 177650 MOV R5,UIPARS “MAP USER PAR'S OPPOSITE OF KIPAR'S 
2457 026766 010437 177652 MOV 4 UIPARS 
3458 024772 013737 177776 001176 4$: MOV W,$T :SAVE PSW IN CASE OF ERROR 
2459 025 12700 100100 MOV #100100,RO “PUT VIRTUAL ADDR. THAT USES PAR4 IN RO 
2460 025 012701 120000 MOV #120000, “PUT VIRTUAL ADDR. THAT USES PARS IN R1 
2461 025010 010010 5$: MOV RO, (RO) WRITE | TC TEST LOC. USING PAR4 
2462 025012 011102 MOV (R1) .R2 “READ THE SAME LOC., BUT USING PARS 
2463 025014 02000 CMP RO,R2 “DID WE READ WHAT WE WROTE? 
2464 025016 001411 BEQ “BRANCH IF YES 
2465 025020 010137 001310 MOV R1,VIRT2 : SAVE VIRTUAL ADDR. THAT SELECTED PARS 
2466 025024 010037 001306 MOV 0; VIRT1 “SAVE VIRTUAL ADDR. THAT SELECTED PAR 
2467 025030 004737 035620 JSR PC; FORMPA “GO FORM PHYSICAL ADDRESS BEING USED 
2468 025034 104020 ERROR 20 “READING LOC. USING PARS AND A VIRT. 
2469 “ADDR. DID NOT FIND DATA WRITTEN WHEN USING 
2470 “PAR4 AND VIRT. ADDRESS. 
2471 “FOR TIGHTER SCOPE LOOP 
2472 REPLACE ERROR CALL WITH 
247% ;'BR 5$"* = 000765 
2474 025036 013700 001306 MOV VIRT1,RO RESTORE VBA IN RO 
2475 025042 062700 000100 6$: ADD #100,R0 “CHANGE VIRTUAL ADDRS. TO POINT TO NEXT BLOCK 
2476 025046 062701 000100 ADD #100,R1 
2477 025052 020127 127700 CMP R1,4#127700 :WERE BLOCKS FROM 60000-67600 ALL TRIED? 
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177572 


7$: 


8$: 


9$: 


14-JAN-81 
READ AND WRITE WHILE IN 
BNE S$ 

BIT #140000, PSW 
BNE 7$ 

MOV R4,UIPAR4G 

MOV RS UIPARS 
MOVB  #6.UIPDR4 
MOVB  #6.UIPDRS 
CLRB KIPDR4 

CLRB —«KIPDRS 

MOV R5 .KIPAR4 

MOV R4.KIPARS 

MOV #140000,PSw 
BR 4$ 

CLR PSw 

CMP RS, a#SMADR1 
BGE 8$ 

ADD #1000,R4 

ADD #1900.R5 

MOV R4.KIPAR4 

MOV R5.KIPARS 
MOVB  #6.KIPDR4 
MOVB  #6.KIPDRS 

JMP 10$ 

MOV #77406, KIPDR4 
MOV #77406, KIPDRS5 
MOV 00,R5 

MOV RS .KIPAR4 
MOV RS KIPARS 
MOV R5.UIPARG 
MOV R5.UIPARS 
MOV #MGMERR , MMVEC 
MOV #1$,$LPERR 
BR TST26 

MOV (KSP) +, TRAPPC 
MOV (KSP) +, TRAPPS 
MOV RO,VIRT1 

JSR C.FORMPA 
MOV SRO, WASSRO 
MOV SR2.WASSR2 
BIC #160000. SRO 
ERROR 

MOV TRAPPS , -(KSP) 
MOY TRAPPC ,-(KSP) 


L 4 
11:36 PAGE 50 


RELOCATE MODE 


;BRANCH IF 
HAVE WE DONE TEST IN USER MODE YET? 


;BRANCH IF 

;LOAD USER Aner 

;LOAD USER PARS5 

:MAP USER SPACE R/W TO TEST IT 


MAP KERNEL SPACE NON-RESIDENT WHILE 
TESTING USER SPACE 
“MAP KERNEL PAR'S OPPOSITE UIPAR’S 


;GO TO USER MODE 
:GO BACK AND READ/WRITE IN USER MODE 
;GO BACK TO KERNEL MODE BEFORE LEAVING 


» HAVE ee ALL MEMORY? 


CH 
sLOAD WITH NEXT VALUE FOR PAR4 
[LOAD WITH NEXT VALUE FOR PARS 
:LOAD KERNAL PAR4 
;LOAD KERNAL PARS5 
sMAP KERNAL SPACE R/W WHILE TESTING 


; CONTINUE TEST 
;REMAP KERNEL PAGES READ/WRITE 


;MAP KERNEL AND USER PAR'S 4 & 5 
BACK TO 12-16K 


sRESTORE ADDR. OF NORMAL M.M. TRAP ROUTINE 
:RESET LOOP ON ERROR POINTER TO 1$ 
7:G0 TO NEXT TEST 


;SAVE PC & PS OF TRAP 


PROGRAM WILL TRAP TO HERE IF TRY 
:T0 USE USER PDR‘S WHEN IN KERNEL MODE 
:OR KERNEL PDR'S WHEN IN USER E 
: SAVE VIRTUAL ADDRESS FOR ERROR REPORT 

;GO FORM THE PHYSICAL ADDRESS BEING USED 
:SAVE SRO & SR2 FOR ERROR REPORT 


:CLEAR ERROR BITS IN SRO 

:M.M, TRAP WHILE IN RELOCATE MODE - 
:REFERENCED WRONG SET OF PDR'S 

:FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

:A ‘NOP’ = 0002 


4 
sPUT PC e PS OF TRAP ON STACK 
sRETURN TO TEST 


SEQ 0059 





rm rn ee ame ee —_ —— = -_ 
mm am a eee oe 
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P11: 19=DEC=80 11:05 126 WeBIT LOGIC TEST, KERNEL PDR'S SEQ 0051 


SERRE ERARAEEAARAERAEAAE AERA ERAARAAARERAAAEKAARAAERARAA EAR ER AERA AES 


;*TEST 26 W-BIT LOGIC TEST, KERNEL PDR'S 


i. THIS TEST WRITES TO EIGHT (8) DIFFERENT VIRTUAL ADDRESSES 
:* (VBA'S = 17776, 37776,57776.77776.117776.130776 137776. & 177776 
:* & PBA’S CONSTRUCTED = 17776,37776,57776.77776, 06906 
o* 77776, 77776, & 777776 RESPECTIVELY). 
:* WHICH SHOULD CAUSE THE ‘W=BIT'’ TO SET IN EACH OF THE 
:* EIGHT (8) KERNEL PAGE DESCRIPTOR REGISTERS. THE PDR'S 
:* ARE CHECKED TO SEE THAT IT'S W-BIT DOES SET WHEN THE 
:* PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE W-BIT 
zs DOES NOT SET IN ANY OF THE OTHER PDR'S. KERNEL PDR'S 3,4,5.6 
:* 0 12-16K FOR THIS TEST. ALSO THE W-BI 
:* SHOULD BE CLEARED WHEN THE PDR IS WRITTEN TO. THE 
:* W-BIT PORTION OF THE PDR'S IS BEING CHECKED. 
SL RARER EERE EERE EEE EERE KEEEEKEEEEREEERERERKERERRERERERER 
025352 900004 TST26: SCOPE 
025354 012737 000340 177776 1$: MOV #340,PSW LOCK OUT ALL POSSIBLE INTERRUPTS 
025362 004737 035246 JSR PC, TOFF : TURN T-BIT TRAPP! NG OFF FOR THIS TEST 
625366 012702 000004 MOV #4 ,R2 -SET LOOP COUNTER 
025372 012700 172346 MOV #KIPAR3,RO :LOAD ADDRESS OF "PARS INTO RO 
025376 012701 000600 MOV #600.R1 “LOAD '12=16k"' VALUE INTO R1 
025402 010120 2$: MOV R1, (RO) + “MAP PARS 3-6 107 
025404 077202 SOB R2,2$ “LOOP TIL ALL 4 OF THEM LOADED 
025406 012705 172300 MOV AKIPDRO,RS “LOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS 
025412 012704 MOV #10,R4 -SET LOOP COUNTER TO 8 
025416 012703 017776 MOV #17776,R3 ‘INITIALIZE VIRTUAL ADDRESS TO BE IN R3 
025422 012737 025430 001110 MOV #3$,$LPERR *SET LOOP ON ERROR POINTER TO 3$ 
025430 012700 172300 3$: MOV #KIPDRO,RO “LOAD ADDR. OF FIRST PDR TO BE SETUP IN RO 
025434 012702 000010 MOV #10,R2 -SET LOOP COUNTER TO 8 
025440 012701 077406 MOV #77406,R1 “PUT "W-BIT OFF DATA’ INTO R1 
025444 010120 4$: MOV R1,(RO)+ “CLEAR ALL W-BITS BY WRITING TO ALL PDRS 
025446 077202 SOB R2,4$ ;LOOP UNTIL ALL OF THEM SETUP 
025450 011313 MOV (R3), (R3) DO DATO" TO VIRTUAL ADDR.-SETTING A W-BIT 
025452 031527 000100 BIT (R5) ,#WBIT *DID THAT CAUSE W-BIT TO BE SET? 
025456 001002 BNE 5$ “BRANCH IF YES 
025460 104021 ERROR 21 *W-BIT DID NOT GET SET IN PDR 
-FOR TIGHTER SCOPE LOOP 
REPLACE, E ERROR CALL WITH | 
025462 000422 BR 8$ “SKIP CHECKING OTHER PDR'S-ERROR WILL SET W-BITS 
025464 012792 000010 5$: MOV #10,R2 -SET LOOP COUNTER TO 8 
025470 012700 172300 MOV #KIPDRO,RO “LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO 
2577 025474 031027 000100 6$: BIT (RO) ,AWBIT “DID W-BIT IN OTHER PDRS REMAIN CLEAR? 
2578 025500 001403 BEQ 7$ “BRANCH IF YES 
2579 025502 020500 CMP R5,RO “IF W-BIT SET, THEN WAS IT PDR UNDER TEST? 
580 025504 001401 BEQ 7$ “BRANCH IF YES 
025506 104022 ERROR 22 “W-BIT GOT SET IN MORE THAN ONE PDR 
582 “FOR TIGHTER SCOPE LOOP 
2583 ; REPLACE ERROR CALL WITH 
584 ; :'BR 3$"' = 000750 
2585 025510 062700 000002 7$: ADD #2,R0 “POINT RO TO NEXT PDR TO RE CHECKED 
586 025514 077211 SOB Re. 6$ “LOOP UNTIL ALL 8 CHECKED Ftc& CLEAR W-BIT 
2587 025516 010115 MOV (R5) “WRITE TO THE PDR TESTED TO CLEAR W-BIT 
88 025520 031527 000100 BIT (RS), #WBIT “DID WRITING PDR CLEAR THE W-BIT: 
2589 025524 001401 BEQ “BRANCH IF YES 
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W-BIT LOGIC TEST, KERNEL PDR'S 


ERROR 25 ;W-BIT DID NOT CLEAR BY WRITING THE PDR 
;FOR TIGHTER SCOPE LOOP 
sREPLACE, ERROR CALL WITH 
:‘BR 3$°' = 000740 


POINT RS TO THE NEXT PDR yA Na 
L 8 PDR'S TESTED 


“RESET LOOP ON ERROR. POINTER TO 1$ 
“TURN T-BIT BACK ON FOR NEXT TEST 


SEQ 0052 


8$: ADD 
ADD 150600. R3 
R4, 3$ 


MOV #1$,$LPERR 
JSR PC, TON 


PRBS AASESSSASLASALASSLALALALESLESRSESSAR LES RAR RRA AS ARARASARAA LAA AAS SS | 


“STEST 27 W-BIT LOGIC TEST, USER PDR'S 
** 
st THIS TEST WRITES TO EIGHT (8) DIFFERENT VIRTUAL ADDRESSES 
ze (VBA'S = 17776, 37776,57776,77776,117770,137776,157776, & 177776 
ze & PBA’S CONSTRUCTED = 17776, 37776,57776.77776, 06195 76, 
oe 77776.77776. & 777776 RESPECTIVELY). 
:* WHICH SHOULD CAUSE THE ‘W-BIT’' TO SET IN EACH OF THE 
:* EIGHT (8) USER PAGE DESCRIPTOR REGISTERS. THE PDR'S 
:* ARE CHECKED TO SEE THAT IT'S W-BIT DOES SET WHEN THE 
:* PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE w-BIT 
:* DOES NOT SET IN ANY OF THE OTHER PDR'S. USER PDR'S 3,4,5.6 
z* ARE MAPPED TO 12-16K FOR THIS TEST. ALSO THE W-BIT 
:* SHOULD BE CLEARED WHEN THE PDR IS WRITTEN TO. THE 
:* W-BIT PORTION OF THE PDR'S IS BEING CHECKED. 
SLEEK EEREKEEKEEREEEEEEEEEKEEREEEEERKEKEEREEEREEEEEE 
1ST27: SCOPE 
1$: MOV #140000,PSW ;GO TO USER MODE FOR THIS TEST 
JSR PC, TOFF -TURN T-BIT TRAPPING OFF FOR THIS TEST 
MOV #4 ,R2 *SET LOOP COUNTER TO 4 
MOV #UIPAR3,RO LOAD ADDRESS OF “ARS INTO RO 
MOV #600,R1 “LOAD ''12=16K'' PAR VALUE INTO R1 
2$: MOV R1, (RO) + “MAP PARS 3-6 T 10 =] 
SOB R2,2$ “LOOP TIL ALL 4 OF THEM 


LOADED 
LOAD ADDRESS OF FIRST PDR TO BE TESTED IN R5 


MOV #UIPDRO.RS 
10,R4 :SET LOOP COUNTER TO 8 

S INITIALIZE VIRTUAL ADDRESS TO BE IN R3 

7SET LOOP ON 


#10 
MOV #17776,R3 


MOV #3$ ,$LPERR ERROR POINTER TO 3$ 

3$: MOV AUIPDRO,RO [LOAD ADDR. OF FIRST PDR TO BE SETUP IN RO 
MOV #10,Re Fo LOOP COUNTER TO 8 
MOV #77406 ,R1 MW-BIT OFF DATA’* INTO R1 

4$: MOV R1,(RO)+ ‘CLEAR ALL W-BITS BY WRITING TO ALL PDRS 
SOB OOP UNTIL ALL OF THEM SETUP 


R2.4$ +L I 
MOV (R3), (R3) “DO 'DATO'’ TO VIRTUAL ADDR. “SETTING A w-BIT 
BIT (R5) , #WBIT “DID THAT CAUSE W-BIT TO BE SET? 


BNE 5$ ; BRANCH YES 
ERROR 21 © ;W-BIT DID NOT GET SET IN PDR 
;FOR TIGHTER SCOPE LOOP 
: REPLACE aah CALL WITH 
BR 8$ :SKIP CHECKING OTHER PDR'S-ERROR WILL SET W-BITS 
5$: MOV #10,Re :SET LOOP COUNTER TO 8 
MOV AUIPDRO,RO ;LOAD ADDR. OF FIRST PDR TO BE witn IN RO 
6$: aM lata DID WSIT | IN OTHER PDRS REMAIN CLEAR 


if Yes 
CMP R5,R0 :IF W-B'T SET, THEN WAS IT PDR UNDER TEST? 
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CJKDAD.P11 19=DEC-80 11:05 SEQ 0052 
025706 901401 BEQ 7$ :BRANCH IF YES 
025710 104022 ERROR 22 :WBIT GOT SET IN MORE THAN ONE PDR 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
"BR 3$"° = 000750 
025712 062700 000002 7$: ADD #2,R0 ;POINT RO TO NEXT PDR TO BE CHECKED 
025716 077211 SOB 2,6$ “LOOP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 
025720 010115 MOV R1.(R5) “WRITE TO THE PDR TESTED TO CLEAR R WB 
025722 031527 000100 BIT (R5) ,AWBIT “DID WRITING PDR CLEAR THE W-BIT 
025726 901401 EQ ;BRANCH IF YES 
25730 104023 ERROR 23 “W-BIT DID NOT CLEAR BY WRITING THE PDR 
“FOR TIGHTER SCOPE LOOP 
ZRE PLACE ERROR CALL WITH 
"BR 3$'' = 00074 
025732 062705 000002 8$: ADD “POINT RS TO THE NEXT PDR TO BE TESTED 
25736 062703 020000 ADD #50000. R3 *CHANGE VIRT. ADDR TO REF. NEXT PDR 
025742 077445 SOB R4,3$ “LOOP BACK TO 3$ UNTIL ALL 8 PDR'S TESTED 
025744 012737 025556 001110 MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
025752 004737 035302 JSR PC, TON : T BACK ON FOR NEXT TEST 
625756 005037 177776 CLR PSW “BACK TO KERNEL MODE BEFORE LEAVING 
5 LAER RRR ERE EEEEREEKEEKREEEREREERERRRERRERERRERRRERER ES 
**TEST 30 TEST ‘W-BIT'’ SPECIAL CASES 
** 
:* THIS TEST CHECKS TWO SPECIAL CASES OF THE W-BIT. FIRST CASE IS 
:* THAT THE W-BIT SHOULD NOT SET IN PDR 7 WHEN WRITING TO 
:* STATUS REG SRO (KERNEL PDR 7 IS USED). StCOND CASE IS THAT 
:* THE W-BIT IS STILL SET IF THE 'DATO’' IS ABORTED DUE TO A 
ot TIMEOUT ERROR (KERNEL PDR6 & VIRTUAL ADDR 140000 ARE USED). 
** 
SIRES IIE SESISISIIISIISOIIO ICSU IOIIIOOISIUUOO IOI IDE ont titi tintt 
025762 00004 TST30: SCOPE 
025764 004737 035246 1$: JSR PC, TOFF : TURN, OFF T-BIT TRAPPING FOR THIS TEST 
025770 012701 077406 MOV #77406,R1 'W-BIT OFF’’ VALUE FOR PDR IN R1 
025774 012737 026002 001110 MOV #2$,$LPERR SET LOOP ON ERROR POINTER TO 2$ 
026002 010137 172316 2$: MOV R1,KIPDR7 “LOAD KERNEL PDR 7 TO CLEAR W-BIT 
26006 013700 177572 MOV SRO.RO “READ PRESENT CONTENTS OF STATUS REG. 0 
26012 010037 177572 MOV RO, SRO “WRITE PRESENT CONTENTS OF SRO BACK TO ITSELF 
026016 013702 172316 MOV KIPDR7,R2 “READ CONTENTS OF KIPDR7 INTO R2 
026022 020102 CMP R1,R2 “WAS W-BIT LEFT CLEARED? 
026024 001401 BEQ 3$ “BRANCH IF YES 
026026 104024 ERROR 24 “W-BIT IN KIPDR7 SET WHEN SRO WAS WRITTEN TO 
“FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
"BR 2$'' = 000765 
026030 012737 026030 001110 3: MOV #3$,$LPERR “SET LOOP ON ERROR POINTER TO 3$ 
026036 010137 17231 MOV R1_KIPDR6 “LOAD KERNEL PDR6 WITH rA0e TO CLEAR W-BIT 
026042 012737 026054 000004 MOV #4$, ERRVEC “SET UP LOC. 4 TO 4$ FOR ODD ADDR. ABORT 
026050 005037 1400 CLR 140000 “CAUSE TIMEOUT ABORT THRU LOC. 4 
026054 012706 001100 4$: MOV AKERSTK,KSP “RESTORE THE STACK POINTER 
26060 013702 172314 MOV KIPDR6.R “READ KIPDR6 INTO R2 
26064 052701 000100 BIS #100,R1 *R1-77506 
026070 020102 CMP R1,R2 “WAS W-BIT SET? 
026072 001401 FQ 5$ “BRANCH IF YES 
026074 104025 ERROR 25 “W=BIT WAS NOT SET DURING A TIMEOUT ABORT 
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: 36 


R1,KIPDR6 
#1400, KIPAR6 
ATIMERR ERRVEC 
#1$,$LPERR 

PC, TON 


¢ 3 
PAGE 54 


;FOR TIGHTER SCOPe LOOP 
sREPLACE ERROR CALL WITH 
:'BR 3$°' = 000757 


: RESTORE KIPDR6 TO 77406 
; RESTORE KIPAR6 TO 1400 


RESTORE NORMAL CPU TRAP ROUTINE TO LOC.4 


“RESET LOOP ON ERROR POINTER TO 1$ 
; TURN T-BIT TRAPPING BACK ON 


MARR BARAAEEAAASAPESZAERLALALLALERE REAR RAR REAR RARER ARR ARAL AR ARRAS SS SS 


THE NEXT THREE (3) TESTS CAUSE MEMORY MANAGEMENT poy 
TO CHECK THE ABILITY OF STATUS REGISTER O TO RECORD K 
ERRORS AND THE ABILITY OF STATUS REGISTER 2 " ay UP THE 


VIRTUAL ADDR. OF THE INSTRUCTION THAT CAUSED T 
THE BITS OF ig ARE CHECKED AND BITS <15:13>, 
ARE CHECKED | O AND 


N SRO. 


SO THE SR 


<6: 5>, AND <3:0> 
SR2 LOGIC AND THE 


KT ERROR rosie ARE CHECKED. 


TRPREERSESESESAAESEESL ESE SESE ETRE ERR RR RR RRR RRR RRR SR AR RASA REDS SSS 


PRE AASBESERESSASALSLALASALALALEL ES EE RS RRR SER RAR RR ARA RAR ARRAS ALAS SD S| 


NON-RESIDENT ABORT TEST (ACF=084) 


TEST 31 
THIS TEST CHECKS THE ACCESS oe FIELD (ACF) COMPARATOR 


23: 


3$: 
4$: 


S$: 


USER 


SCOPE 


BR 
ADD 


LOGIC BY CAUSING NON-RESIDENT 
MODES. PDR 4 IS LOADED WITH 
THEN PHYSICAL ADDR. 60000 IS ACCESSED TO CAUSE THE ABORT. 


#600 ,RO 
RO, KIPARS 
RO AR 


R2-UIPDR4 
#38. $LPERR 


(R 
PSW,$TMPO 
(R1) 

26 


8$ 
44 ,SP 


TS iN BOTH KERNEL AND 
H ACF'S = 084 AND 


;LOAD DATA FOR PAR‘S INTO RO 
:MAP KERNEL PAR'S 384 TO 12-16K 


MAP USER PAR'S 384 TO 12-16K 


sMAP KERNEL PDR 3 128 BLKS, READ-WRITE 

sMAP USER PDR RS 128 BLKS, READ-WRITE 

;LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 

:LOAD VIRTUAL ADDR. TO REFERENCE PDR4 INTO R1 

;LGAD R3 WITH WHAT SRO SHOULD READ - N.R., KERNEL, PG.4 
LOAD a (NON-RESIDENT) + gl VALUE _IN R2 

:POINT MEM. MGMT. TRAP VECTOR TO 5$ BELOW 
[LOAD ACF TEST VALUE INTO KIPDRS 

sLOAD ACF ise INTO UIPDR4 


; 0000 USING PDR3 

“SAVE PSwW IN CASE OF ERROR 

: TRY TO REF. IT USING PDR4 = SHOULD TRAP TO 5% 
- MGMT. ABORT DID NOT OCCUR 

“FOR TIGHTER SCOPE LOOP 

REPLACE ERR DOT IONS WITH 


:"BR 3$" 
BRANCH AROUND STATUS REG. CHECKS IF NO ABORT 
“RESTORE STACK POINTER 


———— ee mm me 


SEQ 0054 
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CJKDAD.P11 19-DEC~BO 7: 05 731 NON-RESIDENT ABORT TEST (ACF=084) SEQ 0055 
2758 026260 005710 TST (RO) :DID INSTRUCTION GET ABORTED & NOT EXECUTE 
2759 026262 001401 BEQ 6$ ANCH IF YES 
2760 026264 104027 ERROR 27 : INSTRUCT ION WAS NOT ABORTED, LOC. GOT CHANGED 
2761 -FOR TIGHTER SCOPE LOOP 
2762 ; REPLACE, ERROR CALL WITH 
2763 :'BR 3$°' = 000764 
2764 026266 013737 177572 001272 6$: MOV SRO, WASSRO “READ STATUS REGISTER 0 
2765 026274 013737 177576 001274 MOV SR2,WASSR2 “READ STATUS REGISTER 2 
2766 026302 020337 001272 CMP R3,WASSRO “DID SRO REPORT NON-RESIDENT ERROR CORRECTLY? 
2767 026306 001401 BEQ 7$ BRANCH IF YES 
2768 026310 104030 ERROR 30 SRO DID NOT REPORT NON-RES. ERROR CORRECTLY 
2769 ‘POR TIGHTER SCOPE LOOP 
2770 ; REPLACE ERROR CALL WITH 
2771 -‘BR 3$'' = 000752 
2772 026312 012704 026246 7$: MOV #4$,R4 “LOAD R4 WITH WHAT SR2 SHOULD READ 
2773 026316 020437 001274 CMP R4,WASSR2 :DID SR2 LOCKUP RIGHT VIRTUAL ADDR. (=4$)? 
2774 026322 001401 BEQ BS “BRANCH IF YES 
2775 026324 104031 ERROR 31 :>SR2 DID NOT LOCK VIRTUAL ADDR. OF NON-RES. ERROR 
2776 -FOR TIGHTER SCOPE LOOP 
2777 ; REPLACE ERROR CALL WITH 
2778 :"BR 3$°° = 000744 
2779 026326 042737 160000 177572 8$: BIC #160000. SRO = CLEAR THE ERROR BITS IN SRO 
2780 026334 032737 140000 001176 BIT 140000.$TMPO  :HAS te SEEN TESTED 1m USER YET 
2781 026342 é BNE 9 “BRANCH IF 
2782 026344 012703 100151 MOV #100151,R3 :LOAD R3 itn WHAT SRO SHOULD READ - N.R., USER, PG.4 
2783 026350 012737 140000 177776 MOV #140000 ,PSW -GO TO USER 
2784 026356 000715 BR 2$ sREPEAT TEST IN USER MODE 
2785 026360 022702 077404 9$: CMP #77404 ,R2 “HAS ACF=4 BEEN TESTED YET? 

2786 026364 001407 BEQ 10$ “BRANCH IF YES 
2787 026366 012702 077404 MOV #77404 ,R2 THEN LOAD ACF=4 (NON-RES) PDR VALUE IN R2 
2788 026372 012703 100011 MOV #100011,R3 =LOAD R3 WITH WHAT SRO SHOULD READ-N.R..KERNEL.PG. 4 
2789 026376 005037 177776 CLR PSw :GO BACK TO KERNEL MODE 
2790 026402 000703 BR 2$ :GO BACK & TEST ACF=4 IN SAME MODE 
2791 026404 005037 177776 10$: CLR PSW ;GO BACK TO KERNEL MODE BEFORE LEAVING 
2792 026410 012737 026132 001110 MOV #1$,SLPERR *-RESET LOOP ON ERROR POINTER TO 1$ 
2793 026416 012737 002150 000250 MOV #MGMERR.MMVEC =:RESTORE ADDRESS OF NORMAL MEMORY 
fa =MANAGEMENT ERROR ROUTINE TO MMVEC 
2796 J LEAR ERE EERERRERERERERAEEREERERERAERKEAEERAERAEE RARER AREER ES 
ia :STEST 32 READ-ONLY ABORT TEST (ACF=2) 
2799 is THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) COMPARATOR 
2800 :* LOGIC BY CAUSING READ-ONLY ABORTS IN noon KERNEL AND 
2801 3* USER MODES. PDR 4 IS LOAD WITH ACF=2 AND THEN 
sens i* PHYSICAL ADDR. 60000 IS WRITTEN TO CAUSE THE ABORT. 
** 
2804 SURUIEIIIS IIIS ISIS NI IO ISSO OD DER Pt kkk etter ts 
2805 026424 000004 TST32: SCOPE 
2 026426 1$: sKERNEL & USER PAR'S 3 & 4 AND PDR 3 
2807 “ARE SETUP FROM LAST TEST 
2808 026426 012700 060000 MOV #60000 ,RO LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 
2809 026432 012701 100000 MOV #100000,R1 ; LOAD VIRTUAL ADDR. TO REFERENCE PDR4 INTO R1 
2810 026436 012703 020011 MOV #20011,R3 *-LOAD R3 WITH WHAT SRO SHOULD READ - R/O, KERNEL, PG.4 
2811 026442 012702 077402 MOV #77402,R2 “LOAD ACF=2 (READ-ONLY) SPOR VALUE IN R2 
2812 026446 012737 026510 000250 2$: MOV #5$,.MMVEC *POINT MEM. MGMT. TRAP VECTOR TO S$ BELOW 
2813 026454 010237 172310 MOV R2,KIPDR4 “LOAD ACF=2 INTO KIPDR4 





ee ee ———2 ae oe 


a . 
; 





c 
11:36 


NORMAL ME 
:MANAGEMENT ERROR ROUTINE TO MMVEC. 


CJKDADO KTF11-AA MMU DIAG MACY11 30A(1052) 14=JAN-81 PAGE 56 
CJKDAD.P11 19=DEC=80 11:05 132 READ-ONLY ABORT TEST (ACF= 8, SEQ 0056 
0 010237 177610 MOV R2,UIPDR4 :LOAD ACF=2 INTO UIPDR4 
026464 012737 0626472 001110 MOV #3$,$LPERR “SET LOOP ON ERROR POINTER TO 3$ 
026472 005010 CLR (ROS “CL EAR PHYS. LOC. 60000 USING PDR3 
026474 013737 177776 001176 MOV PSW,$TMPO : SAVE PSW IN CASE OF ERROR 
026502 005211 4$: INC (R15 Y TO WRITE USING PDR4 - SHOULD TRAP TO 5$ 
026504 104026 ERROR ‘MEM. MGMT. ABORT DID NOT OCCUR 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
“'BR 3$'' = 00077 
26506 BR 8$ “BRANCH AROUND STATUS REG. CHECKS IF NO ABORT 
026510 062706 000004 5$: ADD #4,SP “RESTORE STACK POINTER 
026514 005710 TST (RO) “DID INSTRUCTION GET ABORTED & NOT EXECUTE 
026516 001401 BEQ 6$ “BRANCH IF YES 
026520 104027 ERROR 27 : INSTRUCTION WAS NOT ABORTED, LOC. GOT CHANGED 
“FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
:'BR 3$'' = 000764 
026522 013737 177572 001272 6%: MOV SRO, WASSRO “READ STATUS REG. 0 
026530 013737 177576 001274 MOV SR2.WASSR2 :READ STATUS REG. 2 
626536 020337 001272 CMP R3,WASSRO D SRO REPORT READ-ONLY ERROR CORRECTLY? 
026542 001401 BEQ $ ORANCH IF YES 
026544 104030 ERROR 30 “SRO DID NOT REPORT R/O ERROR CORRECTLY 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:'BR 3$"° 752 
026546 012704 026502 7$: MOV #4$,R4 “LOAD R4 WITH WHAT SR2 SHOULD READ 
026552 020437 001274 CMP R4,WASSR2 “DID sRe LOCKUP RIGHT VIRTUAL ADDR. (=4$)? 
026556 001401 BEQ 8$ “BRANCH IF YES 
26560 104031 ERROR 31 *SR2 DID NOT LOCKUP VIRTUAL ADDR. OF R/O ERROR 
-FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:" BR 7 = 000744 
026562 042737 160000 177572 8$: BIC #160000, SRO “CLEAR THE ERROR BITS IN SRO 
026570 032737 140000 001176 BIT #140000.$TMPO  :HAS Acres BEEN TESTED IN USER MODE? 
026576 001006 BNE 9$ “BRANCH IF YES 
026600 012703 020151 MOV #20151 ,R “LOAD R3 WITH WHAT SRO SHOULD READ-R/O, USER. PG.4 
02 012737 140000 177776 MOV o000°? *GO TO USER MODE 
026612 715 BR “REPEAT TEST IN USER MODE 
026614 005037 177776 9$: CLR 3 W ;GO BACK TO KERNEL MODE BEFORE LEAVING 
026620 012737 026426 001110 MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
026626 012737 002150 000250 MOV #MGMERR,MMVEC  =RESTORE ADDRESS OF MORY 
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** 
:* THE NEXT TWO (2) TESTS WILL BE CHECKING THE PAGE LENGTH 
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14-JAN-81 11:36 PAGE 57 
READ-ONLY ABORT TEST (ACF=2) 


COMPARATORS AND SOME MORE OF THE KT ERROR DETECTION 

AND STATUS LOGIC. THE PAGE LENGTH FIELD (PLF) IN KERNEL 
PDR 4 IS VARIED AND FOR EVERY PLF, THREE (3) VIRTUAL 
ADDRESSES ARE READ. WHILE USING BOTH UPWARD & DOWNWARD Aa ae 
EXPANSION, ONE OF THOSE THREE VIRTUAL gt te WILL CAUSE A 
"PAGE LENGTH ABORT'’ WHILE THE OTHER TWO WON 


STATUS REGISTER 0 & 2 ARE CHECKED WHEN THE PAGE LENGTH 
ABORT DOES OCCUR TO SEE THAT THE ABORT IS REPORTED AND THAT 
Ty ae OF THE INSTRUCTION THAT CAUSED THE ABORT 


** 
*® 
*® 
** 
** 
** 
** 
** 
-* 
** 
** 
** 
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“*TEST 33 PAGE LENGTH FAULTS-UPWARD EXPANSION 
ot 
:* THIS TEST VARIES THE PAGE LENGTH FIELD (PLF) IN KERNEL PDR 4 
:* FROM 1 TO 177 AND FOR EACH PLF, THREE VIRTUAL ADDRESSES (VBA‘S) 
:* ARE ACCESSED. WHEN VBA <12:6> IS LESS THAN OR EQUAL TO PDR <14:8> 
:* NO ABORT SHOULD OCCUR. WHEN VBA <12:6> IS GREATER THAN PDR <14:8>, 
:* A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 
:* THE PAGE EXPANSION DIRECTION IN THIS TEST IS UPWARD, (THE ED BIT 
:* (BIT 3) OF PDR 4 = 0). 
*¥* 
ORI RIC RII IRR ERR EER EERE ERR EEE RS 
TST33: SCOPE 
1$: MOV #77406.KIPDR3 ;MAKE SURE PDR3 IS DESCRIBED AS R/W 
MOV #77406. KIPDRS “MAKE SURE PDR5 IS DESCRIBED AS R/W 
MOV #DALTBI.R “DAL TABLE FOR VIRTUAL ADDR’S. TO SELECT PDR4. 
MOV #PDRTB1 RG “PDR TABLE FOR PDR4 (COINCIDES WITH DAL TABLE). 
MOV #6,R1 *SET UP LOOP COUNTER. 
MOV #9$ ,.MMVEC “SETUP M.M. TRAP VECTOR FOR UNEXPECTED ABORTS 
MOV #2$,$LPERR “SET LOOP ON ERROR POINTER TO 2$ 
MOV #KERSTK,KSP “MAKE SURE STACK POINTER IS ALL SET UP 
: TEST NON-ABORT CASES (VBA < OR = PLF) 
5$: MOV (R4)+.KIPDR4  ;:LOAD KIPDR4 WITH PAGE LENGTH VALUE 
TST a(RO)+ “ACCESS VIRTUAL ADDR. (VBA < OR = PLF) 
“NO ABORT SHOULD OCCUR!!! 
SOB R1,2% “DONE?...NO- TEST NEXT COMBINATION OF DAL & PDR. 
-TEST ABORT CASES (VBA > PLF) 
$$: MOV #5,R1 :SET UP LOOP COUNTER. 
MOV #DALTB2,RO “DAL TABLE 
MOV #PDRTB2.R4 “PDR TABLE 
MOV #4$,$LPERR “SET LOOP ON ERROR POINTER TO 4$ 
MOV #6$ .MMVEC “SETUP M.M. TRAP VECTOR FOR EXPECTED ABORT 
4$: MOV (R4)+,KIPDR4  ;:LOAD KIPDR4 WITH PAGE LENGHT VALUE 
5$: IST a(R0)+ ACCESS VIRTUAL ADDR. (VBA > PLF - ABORT TO 6%) 


:EXPECTED PAGE LENGTH ABORT DID NOT OCCUR 
“FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
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PAGE LENGTH FAULTS-UPWARD EXPANSION 


;‘BR 5$'' = 000776 
H AR 


SEQ 0056 


BR 8$ “BRANCH AROUND ABORT CHECKS 
6$: MOV AKERSTK ,.KSP “RESTORE STACK POINTER FOLLOWING ABORT 
MOV SRO,WASSKO “READ M.M. STAT US REG. 0 
MOV SR2.WASSR2 “READ M.M. STATUS REG. 2 
MOV #40011 ,R2 “PUT EXPECTED SRO CONTENTS IN R2 
CMP Ro. WASSRO ‘DID SR RO REPORT PG. LENGTH ABORT, PAGE 4, KERNEL? 
BEQ 7$ “BRANCH IF YES 
ERROR 34 ;SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 
FOR TIGHTER SCOPE LOOP 
:REPLACE, ERROR CALL WITH 
7$: MOV #5$,R3 “PUT EXPECTED SR2 CONTENTS IN R3 
CMP R3,WASSR2 “DID SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 
BEG 8$ “BRANCH IF YES 
ERROR 35 “§R2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 
“FOR TIGHTER SCOPE LOOP 
SREPLACE ERROR CALL WITH 
:'*BR 5$'' = 000751 
8$: BIC #160000,SRO “CLEAR ERROR BITS IN SRO 
S0B R1,4$ ;DONE?..NO ~ GET NEXT DAL & PDR PAIR 
MP 10$ YES... 
9$: MOV (KSP)+,TRAPPC  =SAVE PC & PS OF TRAP 
MOV (KSP) +, TRAPPS 
MOV SRO. WASSRO :SAVE CONTENTS OF SRO FOR ERROR 
MOV SSR2 “SAVE CONTENTS OF SR2 FOR ERROR 
BIC rae SRO “CLEAR ERROR BITS IN SRO 
ERROR 32 “GOT PG. LENGTH ABORT BEFORE IT WAS EXPECTED 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
7A ‘NOP’ 4 
MOV TRAPPS.-(KSP) =PUT PC & PS OF TRAP ON STACK 
MOV TRAPPC ,~(KSP) 
RTI :RETURN FROM UNEXPECTED ABORT 
10$: MOV #1$,$LPERR :RESET LOOP ON ERROR POINTER TO 1$ 
MOV AMGMERR.MMVEC :RESTORE NORMAL M.M. TRAP HANDLER 
“ADDRESS TO M.M. TRAP VECTOR 
JMP TST34 
:DAL TABLE FOR UPWARD EXPANSION (NON-ABORT CASES) 
DALTB1: 100000 
106100 
102300 
2500 
113700 
104600 
117700 
-PDR TABLE FOR KPDR4 (NON-ABORT CASES) 
PDRTB1: 000006 
052006 
045006 
052006 
074406 


025006 
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14-JAN-81 PAGE 59 
PAGE LENGTH FAULTS-UPWARD EXPANSION 
077406 
;DAL_ TABLE (ABORT CASES) 
DAL TB2: 00 


00 
000 
700 
:PDR TABLE (ABORT CASES) 
PDRTB2: sat 


1001 
1101 
116600 
1127 
117 
117 


406 
046406 
042006 
073406 
77006 
5 LRA EERE EERE REAR ERKEEEEEAREEEREEKHERERAEEEREERERRE ERE E ES 
“*TEST 34 PAGE LENGTH FAULTS-DOWNWARD EXPANSION 
pre 
:* THIS TEST VARIES THE PAGE LENGTH FIELD (PLF) IN KERNEL PDR4 
:* FROM 176 TO O AND FOR EACH PLF, THREE VIRTUAL ADDRESSES (VBA‘S) 
:* ARE oACCESSED. WHEN VBA <12:6> IS GREATER THAN OR EQUAL TO PDR <14:8> 
:* NO PAGE ABORT SHOULD OCCUR. WHEN VBA <12:6> IS LESS THAN PDR <14:8> 
:* A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 
* THE PAGE EXPANSION DIRECTION IN THIS TEST IS DOWNWARD, (THE ED BIT 
:* (BIT 3) OF PDR4=1). 
*® 
*: : MR RRARALALELEELAEAAAEALEAAEAARELALARALAAAA AAA DADA AS ARAL AAA ASDA SD DDD | 
1ST34: SCOPE 
1$: MOV #DALTB3,RO :DAL TABLE FOR VIRTUAL ADDR'S. TO SELECT PDR4. 
MOV #PDRTB3.R4 “PDR TABLE FOR PDR4 (COINCIDES WITH DAL TABLE). 
MOV #6,R1 *SET UP LOOP COUNTER. 
MOV #9$, MMVEC “SETUP M.M. TRAP VECTOR FOR UNEXPECTED ABORTS 
MOV #2$,$LPERR “SET LOOP ON ERROR POINTER TO 
MOV #KERSTK,KSP ‘MAKE SURE STACK POINTER IS ALL SET UP 
-TEST NON-ABORT CASES (VBA > OR = PLF) 
2$: MOV (R4)+,KIPDR4 | :LOAD KIPDR4 WITH PAGE LENGTH VALUE 
TST a(RO)+ “ACCESS VIRTUAL ADDR. (VBA > OR = PLF) 
“NO ABORT SHOULD rit 
SOB R1,2% “DONE?...NO- TEST NEXT COMBINATION OF CAL & PDR. 
-TEST ABORT CASES (VBA < PLF) 
$$: MOV #5.R1 :SET UP LOOP COUNTER. 
MOV #DALTB4 ,RO “DAL TABLE 
MOV #PDRTBS RS “PDR TABLE 
MOV #4$,$LPERR “SET LOOP ON ERROR POINTER TO 4$ 
MOV #6$ ,.MMVEC “SETUP M.M. TRAP VECTOR FOR EXPECTED ABORT 
4$: MOV (R4)+,KIPDR4  ;LOAD KIPDR4 WITH PAGE LENGHT VALUE 
5$: TST a(RO) + “ACCESS VIRTUAL ADDR. (VBA < PLF - ABORT TO 6$) 
ERROR 33 “EXPECTED PAGE LENGTH ABORT DID NOT OCCUR 


:FOR TIGHTER SCOPE LOOP 





SEQ 0059 
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| CJKDAD.P11 19=DEC-80 11:05 PAGE LENGTH FAULTS=DOWNWARD EXPANSION 


3038 sREPLACE ERROR CALL WITH 


MACY11 30A(1052) 
134 SEQ 0060 





;'BR 5$'' = 000776 
CH AR 


027324 24 BR 8$ OUND ABORT CHECKS 
027326 012706 001100 $ MOV #KERSTK,KSP :RESTORE | STACK POINTER FOLLOWING ABORT 
027332 013737 (177572 001272 MOV SRO, WASSRO “READ M.M, STAT US REG. 0 
027340 013737 177576 001274 MOV R2.WASSR2 “READ M. a STATUS REG. 2 
027346 012702 040011 MOV #40011,R “PUT EXPECTED oRO CONTENTS IN R2 
027352 020237 001272 CMP Re. WASSRO “DID SRO REPORT PG. LENGTH ABORT, PAGE 4, KERNEL? 
027356 001401 BEQ “BRANCH IF YES 
27360 104034 ERROR , : $RO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 
“FOR TIGHTER SCOPE LOOP 
:RE PLACE ERROR CALL WITH 
"BR 5$'' = 00075 
027362 012703 027320 7$: MOV #5$,R3 “PUT EXPECTED SR2 CONTENTS IN R3 
027366 020337 001274 CMP R3,WASSR2 “DID § SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 
027372 001401 BEQ 8$ “BRANCH IF YES 
027374 104035 ERROR 35 *SR2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:'BR 5$'' = 000751 
027376 042737 160000 177572 8$: BIC #160000, SRO “CLEAR ERROR BITS IN SRO 
027404 077135 SOB R1,4$ ;DONE?..NO ~ GET NEXT DAL & PDR PAIR 
274 137 027460 JMP 10 YES.. 
027412 012637 001266 9$: MOV (KSP)+,TRAPPC :SAVE PC & PS OF TRAP 
027416 012637 001270 MOV (KSP) +. TRAPPS 
027422 013737 177572 001272 MOV SRO, WASSRO :SAVE CONTENTS OF SRO FOR ERROR 
027430 013737 177576 001274 MOV SR2.WASSR2 “SAVE CONTENTS OF SR2 FOR ERROR 
027436 042737 160000 177572 BIC #160000, SRO *CLEAR ERROR BITS IN SRO 
027444 104032 ERROR 32 *GOT PG. LENGTH ABORT BEFORE IT WAS EXPECTED 
“FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
*A ‘NOP’ = 00024 
027446 013746 001270 MOV TRAPPS.-(KSP) :PUT PC & PS OF TRAP ON STACK 
027452 013746 001266 MOV TRAPPC , ~(KSP) 
027456 000002 RT] :RETURN FROM UNEXPECTED ABORT 
027460 012737 027220 001110 10$: MOV #1$,$LPERR :RESET LOOP ON ERROR POINTER TO 1$ 
027466 012737 002150 000250 MOV #MGMERR,MMVEC :RESTORE NORMAL M.M. TRAP HANDLER 
“ADDRESS TO M.M. TRAP VECTOR 
027474 000137 027564 JMP TST35 
:DAL TABLE FOR DOWNWARD EXPANSION (NON-ABORT CASES) 
27500 117700 DALTB3: 117700 
027502 111600 111600 
027504 115400 115400 
27506 115200 115200 
027510 104000 104000 
027512 113100 113100 
027514 100000 100000 
:PDR TABLE (NON-ABORT CASES) 
027516 077416 PDRTB3: 77416 
027520 025416 25416 
027522 032416 32416 
027524 025416 25416 
027526 003016 03016 
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PAGE 61 
PAGE LENGTH FAULTS-DOWNWARD EXPANSION 


SEQ 0061 
52416 
00016 
:DAL TABLE (ABORT CASES) 
DALTB4: 117600 
760 
101100 
105000 
100700 
100000 
:PDR TABLE ‘ABORT CASES) 
PDRTBG: 77416 
47016 
31016 
35416 
04016 
00416 
5 ERR REAR EAEARRERAEREREEERERERAEREEREEREREREERERERREREREEREERER EES 
= *TEST 35 SR2 BIT TEST 
** 
:* THIS TEST CHECKS THE BITS IN MEMORY MANAGEMENT REGISTER 2 BY 
:* CAUSING “READ-ONLY ABORTS’' AT VIRTUAL ADDRESSES BETWEEN 100000 
:* 110000 (PHYSICAL ADDRESSES 060000-070000). KIPDR4 IS USED TO EXECUTE 
:* THE FOLLOWING FOUR WORDS OF CODE WHICH ARE MOVED THRU MEMORY: 
:* 010727 MOV PC.(PC)+ :THIS INSTRUCTION SHOULD CAUSE A R/O ABORT 
:* 000 :1TS VIRTUAL ADDR. SHOULD BE LOCKED UP IN SR2 
:* 000137 JMP aw3$ THIS INSTRUCTION IS ALSO MOVED THRU MEMORY 
* (ADDR. OF 3$) “IN CASE A R/O ABORT DOES NOT OCCUR, 
:* ‘IN WHICH CASE SR2 WILL NOT CONTAIN CORRECT ADDR. 
** 
*: REE AEKEAKEAAREEAEEAAEEAAEAAAEARERAREKAERAEEARAEREAREAREREEEEEE 
TST35: SCOPE 
1$: MOV #600 .KIPAR3 :BE SURE PAR3 IS MAPPED TO 12-16k 
MOV #600. KIPAR4 *BE SURE IS MAPPED TO 12-16K 
MOV #77406,KIPDR3 :MAP PAGE 3 128 BLOCKS. R/W 
MOV #77602_KIPDR4 :MAP PAGE 4 128 BLOCKS. RE 
MOV #60002.RO [LOAD RO WITH VIRTUAL ADDR. WHICH USES PDR3 
MOV #100002,R1 “LOAD R1 WITH VIRTUAL ADDR. WHICH USES PDR4 
MOV #33 mae C “SET M.M. TRAP VECTOR TO 3$ 
MOV :SET LOOP ON ERROR POINTER TO 2% 
2$: MOV noi0727. RO) + “LOAD ‘MOV PC, (PC)+'" INSTRUCT ION AT ADDR. 
CLR (RO) + REACHED THRU PDR/PAR 4. 
MOV #000137, (RO)+ : LOAD “UMP an3s'’ INSTRUCTION AT VIRT. ADDR. 
MOV #3$, (RO) IN CASE R/O VIOL. DOES NOT . 
MOV R1 ¢: RANSFER PROGRAM EXECUTION TO "PAGE 4 INSTRUCTIONS 
3$: MOV #KERSTK.KSP «RESTORE STACK POINTER 
MOV SR2,WASSR2 :READ CONTENTS OF STATUS REG 2 - 
CMP RI -WASSR2 WAS ADDR. 0 OF “RELOCATED - R/O ABORT’ LOCKED UP? 


BEQ 
ERROR 36 





YES 
:SR2 vie NOT LOCK UP VIRTUAL ADDR. OF R/O VIOL. 
;FOR TIGHTER SCOPE LOOP 
sREPLACE ERROR CALL WITH 
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CJKDAD.P11 19=DEC-80 11:05 135 SR2 BIT TEST SEQ 0062 
31 :"BR 2$'' = 000757 
3151 027704 042737 160000 177572 4$: BIC #160000, SRO = CLEAR THE ERROR BITS IN SRO 
3182 027712 060101 ADD R1,R1 ;SETUP TO FORM NEXT VIRTUAL A 
3153 027714 010190 MOV R1,RO0 ;SETUP RO TO FORM i Y T. ADDR. TO LOAD 
3154 027716 052701 100000 BIS #100000,R1 sFORM VIRTUAL ADDR. T SHOULD BE LOCKED UP NExT 
3155 027722 052700 060000 BIS #60000 ,RO sPOINT RO TO cs “ VIRT. ADDR. TO LOAD 
3156 027726 020127 110000 CMP R1,4110000 sHAVE ALL VBA'S 1000002110000 BEEN TESTED? 
$126 027732 101743 BLOS 2$ ;BRANCH IF NO 
3159 027734 012737 027566 001110 5$: MOV #13,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
3160 027742 012737 077406 172310 MOV #77406, KIPDR4 sRESTORE PDR4 TO R/W ACCESS 
3161 027750 012737 002150 000250 MOV AMGMERR ,MMVEC “RESTORE ADDRESS OF NORMAL M.M 
3162 : TRAP HANDLER TO M.M. VECTOR 
sez 
3165 SR RRR EEE EERE REE EERE REE REE EEEEREREEREEER EERE 
Ay SS TEST 36 MORE CHECKS OF SRO & SR2 
3168 a THIS TEST PERFORMS SOME gi Uae CHECKS OF THE ry a A SR2 LOGIC. 
3149 :* FIRST IT CHECKS THAT SR2 ‘’TRACKS*’ ALONG ACTING AS A VIRTUAL — 
3170 :* PROGRAM COUNTER. ALSO no’ & SRD ARE LOCKED UP BY A PAGE LENGTH 
3171 3* ABORT, THEN WITHOUT CLEARING SRO'S ERROR BITS, A R/O - gel IS CAUSED. 
3172 ;* SRO & SR2 SHOULD ~° BE CHANGED BY THE SECOND ABORT AND THE 
3173 ;* INFORMATION ABOUT THE PAGE LENGTH ABORT SOULD STILL BE LOCKED UP. 
3174 3* IN ADDITION A ‘‘RESET’' IS EXECUTED TO VERIFY THAT SRO Sd ee 
3175 3* AND SR2 IS UNLOCKED BY A RESET. AFTER MEMORY MANAGEMENT IS TURNED BACK ON, 
3199 s* SR2 IS CHECKED TO SEE THAT IT 1S TRACKING AGAIN. 
** 
3178 SURES SIIOISI ISIE IOS IIOISIOISIIIIOIO IOUT IUCR IR IRR 
3179 027756 000004 TST36: SCOPE 
3180 027760 012737 000600 172352 1$: MOV #600 .,.KIPARS :MAP KERNEL PAGE 5 TO 12-16K 
3181 027766 012737 000406 172310 MOV #406,KIPDR4 : SETUP PDR4 FOR PAGE LENGTH ABORT 
3182 027774 012737 077402 172312 MOV #77402,KIPDRS :SETUP PDRS FOR R/O ABORT 
3183 0350002 012737 030010 001110 MOV #2$.$LPERR SET LOOP ON ERROR POINTER TO 2$ 
31 030010 013737 177576 001274 2$: MOV SRD WASSRO sREAD SR2 TO SEE IF ITS TRACKING 
3185 030016 012701 030010 MOV #2$,R1 sPUT EAPECTED VIRTUAL PC IN RI 
3186 030022 020137 001274 CMP R1,WASSR2 :DID SR2 CONTAIN VIRTUAL PC AT 2$? 
3187 030026 001401 BEQ 3$ = BRANCH IF YES 
3188 030030 104041 ERROR 41 ;SR2 NOT TRACKING CORRECTLY 
3189 FOR TIGHTER SCOPE LOOP 
3190 sREPLACE ERROR CALL WITH 
3191 : 2$"* = 767 
3192 030032 012737 030040 001110 3$: MOV #4$,$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
3193 030040 013737 177576 001274 4$: MOV SR2,WASSR2 sREAD SR2 TO SEE IF ITS TRACKING 
3194 030046 012701 030040 MOV #4$,R1 :PUT EXPECTED VIRTUAL PC IN R1 
3195 030052 020137 001274 CMP R1,WASSR2 :DID 7 CONTAIN VIRTUAL PC AT 4$ 
3196 030056 001401 BEQ 5$ 3 H IF YES 
3197 030060 104041 ERROR 41 7 SR2 NOT TRACKING CORRECTLY 
3198 3F TIGHTER SCOPE LOOP 
3195 REPLACE ERROR CALL WITH 
3200 :"BR 4$°' = 000767 
3201 030062 012737 030070 001110 S5$: MOV #6$,$LPERR ;SET LOOP ON ERROR ah TO 6$ 
3202 030070 012737 030106 000250 6$: MOV #73 ,.MMVEC “PUT ADDRESS OF 7$ IN M.M. TRAP VECTOR 
3203 030076 005037 001200 CLR $TMP1 ;CLEAR ERROR INDICA TOR 
3206 030102 005237 100500 INC a4#100500 =CAUSE PAGE LENGTH ABORT - TRAP TO 7$ 
3205 30106 012706 001100 7$: MOV #KERSTK,KSP *RESTORE STACK POINTER AFTER ABORT 
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CJKDAD.P11 19=DEC-80 11:05 E CHECKS OF SRO & SR2 SEQ 0063 
030112 013737 177572 001176 MOV 0,$1 :SAVE SRO'S INFORMATION ON PG. LGTH. ABORT 
030120 013737 177576 O0012v2 MOV SR2.$TMP2 *SAVE SR2" : INFORMATION ON PG. LGTH. ABORT 
030126 012737 030140 000250 MOV #8$.MMVEC *PUT ADDRESS OF 8$ IN M.M. TRAP’ VECTOR 
030134 005237 12 INC 120000 “CAUSE R/O ABORT - TRAP TO 8 
030140 012 11 8$: MOV #KERSTK,KSP “RESTORE STACK POINTER AFTER ABORT 
030144 013737 177572 001272 MOV SRO, WASSRO “READ SRO FOLLWOING SECOND KT ABORT 
030152 013737 177576 001274 MOV SR2.WASSR2 “READ SR2 FOLLOWING SECOND KT ABORT 
030160 023737 001176 001272 CMP $TMPO,WASSRO  :IS SRO STILL HOLDING INFO ON FIRST ABORT? 
030166 001402 BEQ 8 BRANCH IF YES 
030170 005237 001200 INC $TMP =SET ERROR INDICATOR 
030174 023737 001202 001274 9$: CMP STMP2 , WASSR2 “DOES SR2 STILL HOLD PC OF FIRST ABORT? 
030202 001402 BEQ 10$ “BRANCH IF Y 
030204 005237 001200 INC $TMP1 >SET ERROR INDICATOR 
020210 005737 001200 10$: TST $TMP1 ; WERE SRO OR SR2 CHANGED BY A SECOND ABORT? 
030214 001401 BEQ 11$ CH IF NO 
030216 104037 ERROR 37 “ONE OF STATUS REGS. CHANGED BY SECOND ABORT 

“FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

:'BR 6$'' = 000726 
630220 005037 001200 11$: CLR $TMP1 “CLEAR ERROR INDICATOR 
930224 005 RESET ; EXECUTE A RESET, APPLYING AN “‘INIT’’ 
030226 013737 177572 001272 MOV SRO. WASSRO READ SRO 
030234 005737 001272 TST WASSRO “WAS SRO CLEARED BY THE RESET? 
030240 001402 BEO 12$ “BRANCH IF YES 
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| CJKDAD.P11 19-DEt-B0 *: 05 136 MORE CHECKS OF SRO & SR2 SEQ 0064 
3230 030242 005237 001200 INC $TMP :SRO NOT CLEARED BY A RESET 
030246 013737 177576 001274 12$: MOV SR2 WASSR? “READ SR 
030254 022737 030246 001274 CMP #12$,WASSR2 “WAS SR2 UNLOCKED BY A RESET? 
030262 001402 BEQ 13$  SBRANCH IF YES 
0 005237 001200 INC STMP1 ;SR2_NOT UNLOCKED BY A RESET 
030270 005737 001200 138: TST $TMP1 “WERE SRO & SR2 BOTH ‘RESET'’ BY A RESET? 
030274 001401 BEQ 14$ “BRANCH IF YES 
030276 104040 ERROR 40 SRO OR SR2 NOT ‘RESET’’ BY A RESET 
*FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
:'BR 6$'' = 000676 
030300 012737 000001 177572 14$: MOV #1,SRO TURN MEMORY MANAGEMENT BACK ON 
030306 013737 177576 001274 15$: MOV SR2,WASSR2 sREAD SR2 TO SEE IF ITS TRACKING AGAIN 
030314 012701 030306 MOV #15$,R1 *PUT EXPECTED VIRTUAL PC IN R1 
030320 020137 001274 CMP R1,WASSR2 :DID SRe CONTAIN VIRTUAL PC AT 15$ 
030324 001401 BEQ 16$ “BRANCH IF YES 
030326 104041 ERROR 41 : SR2 NOT TRACKING CORRECTLY 
-FOR TIGHTER SCOPE LOOP 
: REPLACE ERROR CALL WITH 
030330 012737 027760 001110 16$: MOV #1$,$LPERR RESET LOOP ON ERROR POINTER TO 1$ 
030336 012737 077406 172310 MOV #77406, KIPDR4 :RESET PDR4 TO 128 BLKS, R/W 
030344 012737 077406 172312 MOV #77406. KIPDRS  ;RESET PDRS TO 128 BLKS, R/W 
030352 012737 002150 000250 MOV WMGMERR,MMVEC  :RESTORE ADDRESS OF NORMAL 


MEMORY 
‘MANAGEMENT TRAP ROUTINE TO M.M. VECTOR 
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TRTEST 57 USER ABORT PICKS UP KERNEL SPACE VECTOR 
*® 
zs THIS TEST CHECKS TO BE SURE THAT WHEN AN ABORT OCCURS WHILE IN 
:* USER MODE, THE TRAP VECTOR INFORMATION FETCHED IS TAKEN FROM 
ze KE E. R PAGE 0 IS MAPPED TO (60000-77776) SO 
is THAT IF USER SPACE IS USED INSTEAD OF KERNEL, THE NEW PC THAT 
:* WAS LOADED AT LOC. 06 S USED INSTEAD OF THE NEW PC THAT 
:* SHOULD BE PICKED UP FROM LOC. 000004. A TIMEOUT ERROR IS USED 
te TO CAUSE A TRAP TO ‘'4'’. 
** 
SOOO IOAN IEICE RR RIOR RRR ER RE RRR ERED 
030360 000004 1$137: SCOPE 
030362 004737 035246 1$: JSR PC, TOFF : TURN OFF T-8IT TRAPPING FOR THIS TEST 
0366 012737 030374 001110 MOV §§ #2$, $LPERR [SET LOOP ON ERROR POINTER TO 2$ 
030374 005037 177776 2$: CLR PSW :GO TO KERNEL MODE 
012706 001100 MOV #KERSTK ,KSP :SETUP KERNEL STACK PTR. 
030404 012737 000600 177640 MOV #600, UIPARO “MAP USER PAGE 0 TO 12k 
030412 012737 030474 000004 MOV #6$, 046 “LOAD KERNEL VECTOR 4 (LOC.4) WITH 4$ 
030420 012737 000340 000006 MOV #340,a#6 [LOAD VECTOR+2 WITH NEW PSW 
030.26 012737 140000 177776 MOV = #140000, PSWw :GO TO USER MODE 
030434 012706 000700 MOV #USESTK -USP :SETUP USER STACK 
030440 012737 030460 000004 MOV =s-« #3$, a4 :LOAD USER VECTOR 4 (LOC. 60004) WITH 35 
030446 012737 000340 000006 MOV «#340, a6 :LOAD VECTOR+2 WITH NEW PSW 
030454 005737 160000 TST 160000 =CAUSE TIMEQUT ERROR TRAP TO ‘% 
“SHOULD PICK UP NEW PC=4$ FROM KERNEL 
“LOC. 4, NOT PC=3$ FROM USER LOC. 4 (=60004) 
030460 013701 177776 3$: MOV PSW,R1 “SAVE PSW FOR ERROR 
030464 010602 MOV SP,R2 “SAVE VALUE OF STACK POINTER FOR ERROR 
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CJKDAD.P11 19=DEC-80 11:05 137 USER ABORT PICKS UP KERNEL SPACE VECTOR SEQ 0065 
| 3286 030466 005037 177776 CLR PSwW :BE SURE BACK IN KERNEL MODE 
3287 030472 104042 ERROR 42 DID NOT TRAP THRU KERNEL SPACE 
3288 :FOR TIGHTER SCOPE LOOP 
3289 .  GREPLACE ERROR CALL WITH 
3290 : 2$'' = 000740 
3291 030474 005037 177776 43: CLR PSW “BE SURE BACK IN KERNEL MODE 
3292 030500 012706 001100 MOV AKERSTK,KSP ;RESTORE KERNEL S.P. IN CASE IT CHANGED 
3293 030504 005037 177640 CLR UIPARO “REMAP USER PAGE 0 TO 0-4 
3294 030510 012737 140000 177776 MOV #140000,PSW -GO TO USER MOD 
3295 030516 012706 000700 MOV MUSESTK,USP “RESTORE USER STACK POINTER 
3296 030522 005037 177776 CLR PSW :GO BACK TO KERNEL MODE 
3297 030526 012737 002076 000004 MOV #TIMERR, a4 “RESTORE ADDR. OF NORMAL CPU TRAP HANDLER TO 4 
3298 030534 012737 030362 001110 MOV #1$,.$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
44 030542 004737 035302 JSR PC,TON TURN T-BIT TRAPPING BACK ON 
3301 RI TI TTT TK IR RAE REE EEE EEE EEE EERE EE 
3300 TEST 40 RTI IN USER MODE DOES NOT CHANGE PSW 
3304 1 THIS TEST CHECKS TO SEE THAT WHEN AN RTI IS EXECUTED IN USER 
Sane :* MODE, THE MODE OR PRIORITY BITS OF THE PSW ARE NOT CHANGED. 
ee 
3307 BIO CIOOII IOICI I OIOIOIIOIOIICIOIOI ICTR ICICI IIT IITA IIIA IIS IAIAIS IASI ISIS SASSI ISM 
sane 030546 000004 TST40: SCOPE 
3310 030550 012737 030562 001110 1$: MOV #2$,$LPERR ;SET LOOP ON ERROR POINTER TO 2$ 
3311 030556 012702 170000 MOV #170000,R2 -LOAD ‘PRESENT & EXPECTED’’ PSW VALUE INTO R2 
3312 030562 010237 177776 2$: MOV R2,PSW GO TO USER MODE-PRIORITY O 
3313 030566 012746 000340 MOV #340,-(SP) “PUT A NEW PSW (PRIORITY=7) ON STACK 
3314 030572 012746 030600 MOV 43$,-(SP) *PUT NEW PC ON THE STACK 
3315 030576 000002 RT] :DO AN RTI FROM USER MODE 
3316 0: 013701 177776 3$: MOV PSwW,R1 “READ NEW PSW INTO R1 
3317 030604 042701 007437 BIC #7437 ,R1 “MASK OFF COND. CODE, T-BIT, AND UNUSED BITS 
3318 030610 005037 177776 CLR PSW *GO BACK TO KERNEL MODE 
3319 030614 020201 CMP R2,R1 “DID PSW STAY IN USER, PRIORITY=0? 
3320 030616 001401 BEQ 4$ “BRANCH IF YES 
3321 030620 104060 ERROR 60 =PSW CHANGED BY AN RTI FROM USER 
3322 :FOR A TIGHTER SCOPE LOOP 
3323 ; REPLACE ERROR CALL WITH 
3324 :' BR=2$'' = 00076 
352 030622 012737 030550 001110 4$: MOV #1$,$LPERR =RESET LOOP ON ERROR POINTER 70 1$ 
3327 
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KT ERROR SERVICED BEFORE TIMEOUT ERROR 
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“*TEST 41 KT ERROR SERVICED BEFORE TIMEOUT ERROR 
** 
‘it THIS TEST CHECKS TO SEE THAT IF A CERTAIN VIRTUAL ADDRESS THAT 
zs WOULD CAUSE A MEMORY MANAGEMENT ERROR CAUSES A TIMEOUT 
oe ERROR FIRST. THE TIMEOUT ERROR IS SERVICED BUT THE MEMORY 
:* MANAGEMENT ERROR ISN'T. THIS MEANS THAT SRO AND SR2 
tt SHOULD NOT REPORT THE ERROR OR LOCK UP ITS VIRTUAL ADDRESS. 
:* A_READ-ONLY VIOLATION IS USED AS THE POTENTIAL MEMORY MANAGEMENT 
**® 
** 
SGI ISISISICIIOIOIIISIOISIEISIOIOIOIUIOIOIOIOIIDIOIOIOIIOIOI IOI TITS TOT OE 
1ST41: SCOPE 
1$: MOV #77006,R5 : LOAD opDR7 DATA INTO RS 
MOV R5,.KIPDR? “MAP PAGE 7 R/W PLF=176 
MOV #3$,a44 “SET CPU TRAP VECTOR TO ADDRESS OF 3$ 
MOV #4$,a#250 “SET M.M. TRAP VECTOR TO ADDRESS OF 4$ 
MOV #2$ SLPERR “SET LOOP ON ERROR POINTER TO 2$ 
2$: iNC ayi777 “CAUSE PLF ABORT AND POTENTIAL TIMEOUT 
3$: ERROR 43 ‘TRAPPED THRU CPU TRAP VECTOR BUT SHOULDN'T HAVE 
“FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
"BR 2$"" 776 
4$: MOV #KERSTK.KSP “RESTORE STACK POINTER AFTER TRAPPING 
MOV SRO, WASSRO “READ STATUS REG.O 
S$: MOV SR2.WASSR2 “READ STATUS REG. 2 
MOV #60017,R0 “LOAD EXPECTED SRO CONTENTS INTO RO 
CMP RO, WASSRO >SRO PLF ERROR BIT SET? 
BEQ 6$ BRANCH IF YES 
ERROR 44 :SRO DIDN'T REPORT PLF ERROR 
“FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
"BR 2$'° = 000741 
6$: MOV #2$,R1 “LOAD EXPECTED SR2 CONTENTS INTO R1 
CMP R1,WASSR2 WAS SRe LOCKED BY PLF ABORT? 
BEQ 7$ “BRANCH IF YES 
ERROR 44 *SR2 SIDA T LOCK UP VIRTUAL ADDRESS 
“FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
-"BR 2$'° = 000741 
7$: BIC #160000, SRO “CLEAR ERROR BITS THAT WERE SET IN SRO 
MOV #TIMERR, and “RESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 
MOV #MGMERR.a#250  =RESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 
MOV #77406,KIPDR? :REMAP PAGE 7 TO READ/WRITE PLF=177 
MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
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PC & PSW SAVED FOR KT ERROR DURING SERVICE OF TIMEOUT ERROR 


TEST 42 
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THIS TEST CHECKS THE PC AND PROCESSOR STATUS WORD SAVED WHEN 
A KT ERROR OCCURS DURING THE SECOND PUSH ON THE STACK DURING 


SERVICING OF A 


A TIMEOUT ERROR. DUR 


ING A * DOUBLE 


ERROR"* 
SEQUENCE SUCH AS THIS, THE PSwW SAVED WILL BE THE “ONE _ UP 


FROM VECTOR+2 
NOT THE PSW PRESENT BEFORE THE FIRST TRAP. 


(LOC. 6 
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PC & PSW SAVED FOR KT ERROR DURING SERVICE OF TIMEOUT ERROR 


:* SHOULD RECORD THE KT ERROR (A R/O VIOLATION BY THE USER STACK PTR.) 
:* NOTE THAT THE PREVIOUS MODE BITS <13: 12> OF THE PSW 
“8 WILL BE SET IN THE PSW THAT IS SAVED 
**® 
TRE 2, 
TST42: SCOPE 
18: JSR TOF F : TURN T-BIT TRAPPING OFF FOR THIS TEST 
MOV #600,UIPAR3 “MAP USER PAGE 3 TO 12-16k 
MOV #690, UIPAR4 “MAP USER PAGE 4 TO 12-16K 
MOV #77402,UIPDR3 :MAP USER PAGE 3 READ-ONLY 
MOV #77406.UIPDR4 :MAP USER PAGE 4 READ/WRITE 
MOV #6$,aH4 “LOAD ADDRESS 108 4$ IN CPU (TIMEOUT) VECTOR 
MOV #140017, aK6 >LOAD PSW THAT SHOULD BE PUT ON STACK IN VECTOR+2 
MOV #4$, 04250 = LOAD ADDRESS OF 4$ IN M.M. TRAP VECTOR 
MOV #340,a4252 “LOAD A KERNEL PSW IN MMVEC+2 
MOV #2$,$LPERR “SET LOOP ON ERROR POINTER TO 2$ 
2$: MOV #140000,PSw :GO TO USER MODE 
MOV #100002 .USP “SET USER STACK PTR. SO SECOND PUSH IS IN PG. 3 
3$: TST 7700 “CAUSE TIMEOUT ERROR THAT WILL CAUSE 
“R/O ERROR WHEN TRY TO SAVE OLD PC 
4$: MOV 2(KSP) .R1 “PUT PSW SAVED ON KERNEL STACK INTO R1 
MOV (KSP) ,R3 ;PUT PC SAVED ON KERNEL STACK INTO R3 
MOV SRO. WASSRO “READ THE CONTENTS OF M.M. STATUS REG. 0 
MOV SR2,WASSR2 “READ THE CONTENTS OF M.M. STATUS REG. 2 
BIC 7160000° SRO ; CLEAR THE ERROR BITS IN SRO 
CLR PSW SURE IN KERNEL MODE 
MOV #KERSTK,KSP “RESTORE KERNEL STACK POINTER 
MOV #140000,PSW =GO TO USER MODE 
MOV #USESTK.USP “RESTORE USER STACK POINTER 
CLR PSW *GO BACK TO KERNEL MODE 
CLR $TMPO “CLEAR ERROR INDICATOR 
CMP R1,4170017 “WAS THE PSW SAVED THE ONE PICKED UP BY THE 
“TIMEOUT TRAP FROM ERRVEC+ 
“VALUE 170017 = PSw FROM OC. 6 WITH 
*PREVIOUS MODE BITS = USER 
BEQ 5$ ; BRANCH IF YES 
INC $TMPO WRONG PSW SAVED DURING "DOUBLE ERROR’’ SEQUENCE 
5$: CMP R3,H35$+4 “WAS THE PC AT THE TIME OF THE TIMEOUT ERROR 
: SAVED Jon THE STACK? 
BEQ 6$ H IF YES 
INC $TMPO WRONG PC SAVED DURING TRAP SEQUENCE 
6$: CMP WASSRO,#20147 DID SRO REPORT - USER, PAGE 3, R/O ABORT? 
INC $TMPO “SRO DID NOT REPORT R/O ABORT 
7$: CMP WASSR2 #3 “DID SR2 LOCK UP VIRTUAL ADDR. OF LAST 
: INSTRUCT JON SUCCESSFULLY FETCHED? 
BEQ 8$ ‘BRANCH IF YES 
INC $TMPO :SR2 DID NOT LOCK UP ADDR. OF TIMEOUT INST. 
8$: TST $TMPO “ANY "'ERRORS'' DURING TRAP SEQUENCE? 
BEQ 9$ BRANCH IF NO 
ERROR 45 THE WRONG PC OR PSW WERE SAVED 


:OR SRO OR SR2 DID NOT REPORT R/O 
> ERROR : =~ TIMEOUT = KT TRAP 


> SEQUENC 
:FOR TIGHTER SCOPE LOOP 
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| CIKDAD.PT1 19=DEC-80 11:05 T42 PC & PSW SAVED FOR KT ERROR DURING SERVICE OF TIMEOUT ERROR SEQ 0068 
| 3440 REPLACE ERROR CALL WITH 
| 3461 2$"' 0007110 
3442 031260 012737 002076 000004 9%: MOV ATIMERR ,@&4 ; RESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 
3443 031266 012737 000340 000906 MOV #340, aK6 sRELOAD ERRVEC+2 WITH KERNEL PSW 
3444 031274 012737 002150 000250 MOV #MGMERR,@#250  ;RESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 
3445 031302 012737 077406 177606 MOV #77406, UIPORS ;REMAP USER PAGE 3 READ/WRITE 
3446 031310 012737 031002 001110 MOV #1$, $LPERR RESET LOOP ON ERROR POINTER TO 1$ 
3447 031316 004737 035302 JSR PC,TON ; TURN T-BIT TRAPPING BACK ON 
3448 SIGS IOIEIOISISISISISISIOIIIEIEIOIIOUIOIUIDISIOIIIOIIOI IIIT TOI TTT TT ITT TOT II IEE 
3449 te 
3450 :* THIS GROUP OF TESTS WILL TEST ALL THE LOGIC ASSOCIATED WITH 
x24 ;* THE "MOVE FROM PREVIOUS'’' AND MOVE TO PREVIOUS’’ INSTRUCTIONS. 
** 
3455 SIS EIA EIA IIICISISIIIDIOISISIIISISISIIIOIUICIIOIOIIISIOIIIIDICIIIDIOIITIOI IOI IOI TOIT TOTO 
3454 
3455 
3456 SI IR RR RR ERE EEE EEE EERE EEE EER EERE REE 
3457 :*TEST 43 MOVE FROM PREVIOUS (USER) I-SPACE 
-e 
3459 ¢® THIS TEST USES THE "MFPI‘ INSTRUCTION TO ENSURE THAT THE 
3460 ‘* PREVIOUS MODE IS CLOCKED CORRECTLY 
rt tg THERE iS A DESCRIPTION BEFORE EACH DESTINATION MODE TESTED, 
-* 
3463 3 
3464 s* IF THE CORRECT MODE (USER) IS NOT ENABLED A NON-RESIDENT ABORT 
se 3* WILL OCCUR AND TRAP TO 23$, WHERE THE ERRORS ARE REPORTED. 
-* 
3467 oS REAR RRR EERE EERE ER RE RRER EEE 
3468 031322 00 TST45: SCOPE 
3469 031324 005037 172340 1$: CLR 0 sMAP KERNEL PAGE 0 TO 0-4K 
3470 031330 012737 200 172342 MOV #200, KIPAR1 ;MAP KERNEL PAGE 1 TO 4-8K 
3471 031336 012737 000400 172344 MOV #400 ,.KIPAR2 s;MAP KERNEL PAGE 2 TO 8-12K 
3472 031344 012737 00 172346 MOV eKIPARS sMAP KERNEL PAGE 3 TO 12-16K 
3473 031352 012737 172350 MOV #600 .KIPAR4 ;MAP KERNEL PAGE 4 TO 12-16K 
3474 031360 012737 007600 172356 MOV § #7600,KIPAR7 = ;MAP_KERNEL PAGE 7 TO THE I/O PAGE 
3475 031366 012700 077406 MOV #77406,RO0 sMAKE ALL_KERNEL I-SPACE anes RESIDENT 
3476 ;READ/WRITE, an dd 200 BL 
3477 031372 012702 000010 MOV #10,R2 :SET LOOP COUNTER TO 8 
3478 031376 012701 1723500 MOV #KIPDRO,R1 ;PUT ADDRESS OF FIRST PDR IN R1 
3479 031402 010021 2$: MOV RO, (R1)+ :LOAD PDR WITH 77406 
3480 031404 077202 SOB R2,2$ :LOOP TO 2$ UNTIL ALL PDRS LOADED 
3481 031406 012702 000010 MOV #10 Re ;SET LOOP COUNTER TO 
3482 031412 012701 177600 MOV #UIPDRO,R1 :PUT ADDRESS OF FIRST PDR IN R1 
3483 031416 010021 3$: MOV RO,(R1)+ ; PDR_WITH 77406 
3484 031420 077202 SOB R2,3$ ;LOOP TO 5$ UNTIL ALL PDRS LOADED 
3485 031422 012737 000000 177640 MOV MAP USER I PAGE 0 TO 0-4 
3486 031430 012737 000200 177642 MOV #200 ,UIPAR1 sMAP USER I PAGE 1 TO 4-8Kk 
3487 031436 012737 000400 177644 MOV #400 ,UIPAR2 :MAP USER I PAGE 2 TO 8-12k 
34 031444 012737 000600 177646 MOV #600 ,UIPARS sMAP USER I PAGE 3 TO 12-1 
3489 031452 012737 007600 177656 MOV § #7600,UIPAR7 = MAP _ USER I PAGE 7 TO THE I/O PAGE 
os Relate 012737 031466 001110 “ MOV #4$,$LPERR ;SET LOOP ON ERROR TO 4$ 
3492 031466 012737 077406 172310 MOV #77406,KIPDR4 ;KERNEL_I~SPACE pei 4 READ/WRITE 
3493 031474 012737 000600 172350 MOV #600, KIPAR4 :MAP KERNEL I PAGE 4 TO 12k 
3494 031502 012737 000600 177650 MOV #600 ,UIPAR4 ;MAP USER I PAGE 4 TO 12k 
3495 031510 012700 036514 MOV #36514 ,R0 ;LOAD DATA PATTERN INTO RO 
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14-JAN-81 
MOV 


CJKDAD.P11 19=DEC-80 11:05 SEQ 0069 
031514 010037 100000 MOV RO, a4#100000 LOAD DATA PATTERN INTO PHY 60000 
031520 012737 632122 000250 MOV #23$,MMVEC :SET .M. VECTOR TO 23$ 
031526 105037 172310 CLRB  —«KIPDR4 KERNEL I=SPACE PAGE 4 NON-RESIDENT 

;THE FOLLOWING WILL TEST’ DSIMeO MFP 
931532 012737 031540 001110 fov #5$,$LPERR :SET LOOP ON ERROR POINTER TO 5$ 
031540 012737 030340 177776 S$: MOV #030340, PSW “MAKE PREVIOUS MODE USER 
031546 506 é$: MFP] :PUT USER STACK POINTER ON KERNEL 
031550 022706 001100 CMP #KERSTK,KSP WAS SOME THING PUSHED ON STACK AT 6$ 
031554 001407 BEQ 7$ “BRANCH IF NOTHING WAS PUSHED 
1556 012 MOV (KSP)+,RO “POP KERNEL STACK INTO R 
031560 012701 000700 MOV #USESTK,R1 ZEXPECTING TO GET 700 AS USP 
031564 020001 CMP RO,R1 D YOU GET THE RIGHT POINTER? 
031566 001403 BEQ 8$ ‘BRANCH IF DID 
031570 104046 ERROR 46 : WRONG THING WAS PUSHED ON STACK 
“FOR TIGHTER SCOPE LOOP 
SREPLACE ERROR CALL WITH 
:'"BR 5$'' = 000763 
631572 000401 BR 8$ “BRANCH TO NEXT TRY 
031574 104050 7$: ERROR 50 ; NOTHING PUSHED ON STACK 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
-' BR 5$'" = 000761 
031576 8$: <THE FOLLOWING WILL TEST DSTM=1 MFPI. 
031576 012737 031610 001110 MOV #9$,$LPERR :SET LOOP ON ERROR POINTER TO 9$ 
031604 012700 036514 MOV 436516, RO “RELOAD DATA PATTERN IN RO 
031610 012737 030340 177776 9$: MOV #030340,PSW “MAKE PREVIOUS MODE USER 
031616 012702 MOV #100000,R2 “LOAD VIRTUAL ADDRESS INTO R2 
031622 512 MFP! (R2) “READ FROM PHYSICAL 60000 
031624 012601 MOV (KSP)+,R1 *POP KERNEL STACK INTO R1 
031626 020001 CMP RO.R1 “WAS DATA FETCHED SAME AS STORED 
1630 001401 BEQ 10$ “BRANCH IF CORRECT DATA WAS FETCHED 
031632 104046 ERROR 46 “WRONG DATA WAS FETCHED 
“FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
= 000766 
031634 10$:  :THE FOLLOWING WILL TEST’ DSTM=2 MFPI. 
031634 012737 031642 001110 MOV #11$ LPER RR :SET LOOP ON ERROR POINTER TO 11$ 
31642 012737 030340 177776 11%: MOV #030 $080. “MAKE PREVIOUS MODE USER 
031650 012702 100000 MOV #100000:R “LOAD VIRTUAL ADDRESS INTO R2 
031654 522 MFPI {R2)+ “READ FROM PHYSICAL 60000 
031656 012601 MOV (KSP)+,R1 “POP KERNEL STACK INTO RI 
1660 020001 CMP RO.R1 “WAS DATA FETCHED SAME AS STORED 
031662 001401 BEQ 12$ ; BRANCH IF CORRECT DATA ae FETCHED 
1664 104046 ERROR 46 WRONG DATA WAS FETCHED 
“FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
11$°" = 000766 
031666 12$: : THE FOLLOWING WILL TEST DSTM=3 MFPI 
1666 012737 031674 001110 MOV #13$,$LPERR :SET LOOP ON ERROR POINTER TO 13% 
031674 012737 030340 177776 13%: MOV #020 0340, PSwW “MAKE PREVIOUS MODE USER 
031702 006537 100000 MFP]  af#10 0000 “READ FROM PHYSICAL 60000 
31706 012601 MOV ops R1 “POP KERNEL STACK INTO R1 
031710 020001 CMP RO,R1 “WAS DATA FETCHED SAME AS STORED 
031712 001401 BEOQ 14$ “BRANCH IF CORRECT DATA WAS FETCHED 
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CJKDADO KTF11=AA MMU D MACY11 30A(1052) 14-JAN-81 PAGE 70 
CJKDAD.P11 NO-DEC~B0 11: 05 143 MOVE FROM PREVIOUS (USER) I-SPACE SEQ 0070 
031714 104046 ERROR 46 : WRONG DATA WAS FETCHED 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
13$'' = 000767 
031716 | 14$: = THE FOLLOWING WILL TEST’ steed MEPI. 
031716 012737 031724 001110 MOV #15$, $LPERR :SET LOOP ON ERROR POINTER TO 15$ 
31 (24 012737 030340 177776 15$: MOV 41030820, PSW MAKE PREVIOUS MODE USER 
031732 012702 100002 MOV #100002.R “LOAD VIRTUAL ADDRESS INTO R2 
31 542 MFPI _ =(R2) “READ FROM PHYSICAL 60000 
031740 012601 MOV (KSP) *,R1 “POP KERNEL STACK INTO RI 
031742 020001 CMP 0,R1 “WAS DATA FETCHED SAME AS STORED 
031744 001401 BEQ 16$ “BRANCH IF CORRECT DATA BAS FETCHED 
031746 104 ERROR 46 “WRONG DATA WAS FETCHED 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:"BR 15$°' = 000766 
031750 16$: 
= THE FOLLOWING WILL TEST DSTM=5 MFPI. 
C31750 012737 031756 001110 MOV #17$,$LPERR :SET LOOP ON ERROR POINTER TO 17$ 
031756 012737 030340 177776 17%: MOV #030340,PSW “MAKE PREVIOUS MODE USER 
031764 012737 100000 001202 MOV #100000.$TMP2  <:LOAD TEST LOC. VIRT. ADDR INTO LOC. $TMP2 
031772 012702 001204 MOV #<$TMP2+2>,R2  =LOAD ADDR. OF $TMP2+2 INTO R2 
031776 55 MFP]  a=(R2) “READ FROM PHYSICAL 60000 
32000 012601 MOV (KSP)+,R1 “POP KERNEL STACK INTO R1 
032002 02000 C RO.R1 “WAS DATA FETCHED SAME AS STORED 
2004 001401 BEQ 18$ “BRANCH IF CORRECT DATA WAS FETCHED 
032006 10404 ERROR 46 “WRONG DATA WAS FETCHED 
“FOR TIGHTER SCOPE LOOP 
SREPLACE ERROR CALL WITH 
:"BR 17$'' = 000763 
032010 18$:  :THE FOLLOWING WILL TEST DSTM=6 MFPI. 
032010 012737 032016 001110 MOV #19$,$LPERR :SET LOOP ON ERROR POINTER TO 19% 
032016 012737 030340 177776 19%: MOV #030340,PSw “MAKE PREVIOUS MODE USER 
032024 005002 CLR R2 “MAKE REGISTER 2 A ZERO 
032026 562 100000 MFPI  100000(R2) “READ FROM 60000 
032032 012601 MOV (KSP)+,R1 “POP KERNEL STACK INTO R1 
32034 020001 CMP RO,R1 “WAS DATA FETCHED SAME AS STORED 
032036 001401 BEQ 20$ “BRANCH IF CORRECT DATA WAS FETCHED 
032040 104046 ERROR 46 ‘WRONG DATA WAS FETCHED 
“FOR TIGHTER SCOPE LOOP 
ZREPLACE, ERROR CALL WITH 
= 000766 
032042 208: : THE FOLLOWING WILL TEST DSTM=7 MFPI. 
032042 012737 032050 001110 Mov #21$,$LPERR :SET LOOP ON ERROR POINTER TO 21$ 
032050 012737 030340 177776 21%: MOV #030340,PSW “MAKE PREVIOUS MODE USER 
032056 012737 100000 001202 MOV #100000,$TMP2 LOAD TEST LOC. V.A. INTO STMP2 
032064 012702 001202 MOV #STMP2 ,R2 “LOAD ADDRESS OF $TMP2 INTO R2 
032070 572 000000 MFP]  @0(R2) “USE $TMP2 TO FETCH VIRTUAL 
“ADDRESS OF 60000 
032074 012601 MOV (KSP)+,R1 “POP KERNEL STACK INTO R1 
032076 020001 CMP RO,R1 “WAS DATA FETCHED SAME AS STORED 
032100 001401 BEQ 22$ “BRANCH IF CORRECT DATA WAS FETCHED 
032102 104046 ERROR 46 “WRONG DATA WAS FETCHED 
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CJKDAD.P11 19=DEC-80 11:05 SEQ 0071 
3608 :FOR TIGHTER SCOPE LOOP 
3609 REPLACE. ERROR CALL WITH 
3610 :'BR 21$'' = 000762 
3611 032106 012737 002150 000250 22$: MOV #MGMERR , MMVE C “SET M.M. VECTOR TO NORMAL ROUTINE 
312 932112 012737 031324 001110 MOV #1$,$LPERR “SET LOOP POINTER TO START OF TEST 
3613 032120 000423 BR TST44 : sBRANCH TO NEXT TEST 
3615 
3616 032122 012637 001266 23$: MOV (KSP)+,TRAPPC ;:SAVE PC & PS OF TRAP 
3617 032126 012637 001270 MOV (KSP) +. TRAPPS 
3618 032132 013737 177572 001272 MOV SRO, WASSRO -SAVE SRO FOR ERROR TYPEOUT 
3619 032140 013737 177576 001274 MOV SR2.WASSR2 “SAVE SR2 FOR ERROR TYPEOUT 
3620 032146 042737 160000 177572 Ic #160000, SRO “CLEAR ERROR BITS IN SRO AND LEAVE 
3621 032154 104051 ERROR 51 : TRIED TO READ NON-RESIDENT PAGE 
3622 “FOR TIGHTER SCOPE LOOP 
3623 ;REPLACE ERROR CALL WITH 
3624 ‘A ‘NOP’ = 00024 
32156 013746 001270 MOV TRAPPS,-(KSP) :PUT PC & PS OF TRAP ON STACK 
3626 032162 013746 001266 MOV TRAPPC , ~(KSP) 
33166 RTI 
OR RRARAAEEAEEBLALAALERASZABRAAARAELAAAEAAAAEAEAE EADS EEAA ASR AAAS AAR AD SD SS SD | 
SSTEST 44 MOVE TO PREVIOUS (USER) I-SPACE 
ed 
:* THIS TEST USES THE "MTPI* INSTRUCTION TO ENSURE THAT THE 
:* PREVIOUS MODE IS CLOCKED CORRECTLY 
:* THERE IS A DESCRIPTION BEFORE EACH DESTINATION MODE TESTED. 
** 
** 
:* IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT 
:* WILL OCCUR AND TRAP TO 20$, WHERE THE ERRORS ARE REPORTED. 
*® 
*: : RRA AAAEAEAEAAEAEEAEAKCEEEKEREEEREREAEAAEAEEEEEEEEE 
032170 TST44: SCOPE 
032172 012737 077406 172310 1$: MOV #77406.KIPDR4 :KERNEL I-SPACE PAGE 4 READ/WRITE 
33200 012737 077406 177610 MOV #77406,UIPDR4 :USER I-SPACE PAGE 4 READ/WRITE 
32206 012737 000600 172350 MOV #600, KIPAR4 “MAP KERNEL I PAGE 4 TO 12k 
032214 012737 000600 177650 MOV #600. UIPAR4 “MAP USER I PAGE 4 TO 12k 
032222 012737 033002 250 MOV #20$..MMVEC “SET MM. VECTOR TO 20$ 
; THE FOLLOWING WILL TEST DSTM=0 MTP 
032230 012737 030340 177776 2%: oy #030340,PSwW :MAKE PREVIOUS MODE USER 
032236 012746 007777 MOV #7777,-(KSP) | :PUSH DATA ON KERNEL STACK 
032242 006606 MTP] USP “LOAD USER STACK POINTER 
0322464 506 MFP] -USP “READ USER STACK POINTER 
032246 012601 MOV (KSP)+,R1 “POP KERNEL STACK INTO R1 
032250 022701 007777 CMP #7777. R1 “WAS USER STACK POINTER CHANGED 
032254 001401 BEQ 3$ “BRANCH IF IT WAS 
032256 10405 ERROR 50 USER STACK POINTER NOT CHANGED 
“FOR TIGHTER SCOPE LOOP 
: REPLACE, ERROR CALL WITH 
032260 012737 030340 177776 3$: MOV #030340,PSw “MAKE PREVIOUS MODE USER 
032266 012746 000700 MOV HUSESTK.-(KSP) :GET READY TO RESTORE USER S. POINT 
032272 006606 MTP] USP “RESTORE USER STACK POINTER 
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CJKDAD.P11 1-pet-8 oF 05 
3664 032274 4$: :THIS WILL TEST DSTM = 
3665 032274 012737 032312 001110 MOV #5$,$LPERR 
3666 032302 012702 100000 MOV #100000. R2 
3667 032306 012700 125252 MOV #125252 ,R 
3668 032312 010046 S$: MOV RO, -(KSP 
3669 032314 105037 172310 CLRB KIBDRS 
3670 032320 12 MIP] (R2) 
3671 032322 112737 000006 172310 MOVB #006, KIPDR4 
372 032330 011201 MOV (R2).R1 
3673 032332 020001 CMP ; 
3674 032334 001401 BEQ 6$ 
3675 032336 104047 ERROR 47 
3676 
3677 
3678 
3679 032340 6$: 
3681 032340 012737 032364 001110 MOV #8$,$LPERR 
3682 032346 012737 030340 177776 MOV #030340, PSw 
3683 032354 012700 125252 MOV 25252.RO 
3684 032360 012702 MOV #10000 : 
3685 032364 010046 8$: MOV RO,-(KSP 
3686 032366 105037 172310 CLRB  KIPDR4 
3687 032372 1 MTP] (R2) 
3688 032374 112737 000006 172310 MO #006, KIPDR4 
3689 032402 013701 100000 MOV a#100000,R1 
3690 032406 02000 CMP RO.R1 
3691 032410 001401 BEQ 9$ 
2692 032412 104047 ERROR 47 
3693 
3694 
3695 
3696 032414 9$: :THIS WILL TEST DSTM = 3°MTPI. 
3697 032414 012737 032434 001110 MOV #10$, $LPERR 
3698 032422 012737 030340 177776 MOV #030340,PSW 
3699 032430 012700 052525 MOV #52525 ,RO 
3700 032434 010046 10$: MOV RO.-(KSP) 
3701 032436 105037 172310 CLRB —~«KIPDR 
3702 032442 37 100000 MTP] §§a#100000 
3703 032446 112737 000006 172310 MO #006, KIPDR4 
3704 032454 013701 100000 MOV a#100000,R1 
3705 032460 020001 CMP RO.R1 
3706 032462 001401 BEQ 11 
3707 032464 10404 ERROR 47 
3708 
3709 
3710 
371, 032466 11$: :THIS WILL TEST DSTM = 
3712 032466 012737 032506 001110 MOV #12$, $LPERR 
3713 032474 012737 030340 177776 MOV 1030840 PS 
3714 032502 012700 125252 MOV #125252.RO 
3715 032506 010046 12$: MOV RO, -(KSP) 
3716 032510 012702 100002 MOV #100002 .R2 
3717 032514 105037 172310 CLRB KIPDR4 
3718 032520 006642 MTP]  =(R2) 
3719 032522 112737 000006 172310 MOVB  #006,KIPDR4 


PAGE 72 
MOVE TO PREVIOUS (USER) I-SPACE 


; LOOP ON ERROR POINTER TO 5$ 


“READ FROM ADDRESS 60000 

; SEE i DATA WAS STORED AT CORRECT PLACE 
H Ir STORE WAS CORRECT 

: INCORRECT STORE 

:FOR TIGHTER SCOPE LOOP 

REPLACE ERROR CALL WITH 

; "= 000765 


:THE FOLLOWING WILL TEST DSTM=2 MTPI. 


;SET LOOP ON ERROR POINTER TO 8$ 
;MAKE PREVIOUS MODE USER 
LOAD TEST DATA INTO RO 
;LOAD VIRTUAL ADDRESS INTO R2 
sPUSH TEST DATA ON KERNEL STACK 
PA NON-R 


[MAKE KERNEL PAGE 4 RESISENT 
;READ FROM ADDRESS 60000 

;SEE IF DATA WAS STORED CORRECTLY 
;BRANCH IF coe WAS CORRECT 


; REPLACE ERROR _CALL WITH 
8$°* = 000764 


:SET LOOP ON ERROR POINTER TO 10$ 
:MAKE PREVIOUS MODE USER 

;LOAD TEST DATA INTO RO 

sPUSH TEST en ON KERNEL STACK 
:MAKE KERNEL I PAGE 4 NON-RESIDENT 
;LOAD TEST DATA INTO spit logy 60000 
:MAKE KERNEL PAGE 4 RESIDENT 

[READ FROM ADDRESS 60000 

;SEE IF DATA WAS STORED CORRECTLY 
;BRANCH IF STORE WAS CORRECT 

Fg STORE 


FOR TIGHTER SCOPE LOOP 
“REPL LACE ERROR CALL WITH 
:'BR 10$** = 000765 
4 MTIPI. 
ET ERROR POINTER TO 12$ 


33 OOP ON 

:MAKE PREVIOUS MODE USER 

;LOAD TEST DATA INTO RO 

:PUSH TEST DATA ON KERNEL STACK 
:LOAD VIRTUAL ow INTO R2 

;MAKE K KERNEL I PAGE 4 NON-RESIDENT 
sLOAD TEST DATA INTO PHYSICAL 60000 

‘MAKE KERNEL PAGE 4 RESIDENT 


—— 2} ee ae 


SEQ 0072 
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CJKDAD.P11 19-DEC~BO. "1: 05 144 MOVE TO PREVIOUS (USER) I=SPACE SEQ 0073 
3720 032530 013701 100000 MOV a#100000. R1 :READ FROM ADDRESS 60000 
3721 032534 020001 CMP RO.R “SEE IF DATA WAS STORED CORRECTLY 
3722 032536 001401 BEQ iss “BRANCH IF STORE WAS CORRECT 
3723 032540 104047 ERROR : INCORRECT STORE 
3724 ‘FOR TIGHTER SCOPE LOOP 
3725 ;REPLACE, ERROR CALL WITH 
3726 = 000762 
3727 032542 13$:  ;THE FOLLOWING WILL TEST DSTM=5 MIPI. 
3729 032542 012737 032574 001110 MOV #14$,$LPERR :SET LOOP ON ERROR POINTER TO 14% 
3730 032550 012737 030340 177776 MOV #030340,PSW “MAKE PREVIOUS MODE USER 
3731 032556 012700 052525 MOV #52525,RO “LOAD TEST DATA INTO RO 
3732 032562 012702 001204 MOV eeSTMPSeo>,R2 ; LOAD ADDR. OF LOC. $TMP2+2 INTO R2 
3733 032566 012737 100000 001202 MOV #100000,$TMP2 :LOAD VIRT. ADDR. OF TEST LOC. INTO $TMP2 
3734 032574 010046 14$: MOV RO, -(KSP) ‘PUSH TEST DATA ON KERNEL STACK 
3735 032576 105037 172310 CLRB KIPDRS “MAKE KERNEL PAGE 4 NON-RESIDENT 
3736 032602 006652 MTP] (R2) “LOAD TEST DATA INTO PHYSICAL 60000 
3737 032604 112737 000006 172310 MOVB 7006 KIPDR4 “MAKE KERNEL PAGE 4 RESIDENT 
3738 032612 013701 100000 MOV a#100000. R1 “READ FROM ADDRESS 60000 
3739 632616 020001 CMP RO,R1 “SEE IF DATA WAS STORED CORRECTLY 
3740 032620 001401 BEQ 15$ “BRANCH IF STORE WAS CORRECT 
3741 032622 104047 ERROR 47 * INCORRECT STORE 
3742 “FOR TIGHTER SCOPE LOOP 
3743 ;REPLACE ERROR CALL WITH 
3744 -" BR 14$'' = 000764 
3745 032624 15$:  ;THIS WILL TEST DSTM = 6 MIPI. 
3747 032624 012737 032646 001110 MOV #16$,$LPERR :SET LOOP ON ERROR POINTER TO 16$ 
3748 032632 012737 030340 177776 MOV #030340,PSW “MAKE PREVIOUS MODE USER 
3749 032640 012700 052525 MOV #52525,RO “LOAD TEST DATA INTO RO 
3750 032644 005002 CLR R2 “MAKE REGISTER 2 ZERO 
3751 032646 010046 16$: MOV RO.-(KSP) ; PUSH TEST DATA oN KERNEL STACK 
3752 03265) 105037 172310 CLRB  KIPDR4 MAKE KERNEL I PAGE 4 NON-RESIDENT 
3753 032654 006662 100000 MTP]  100000(R2) “LOAD TEST DATA INTO PHYSICAL 60000 
3754 032660 112737 000006 172310 MOVB #006, KIPDR4 “MAKE KERNEL PAGE 4 RESIDENT 
3755 032666 013701 100000 MOV a4#100000,R1 “READ FROM ADDRESS 60000 
3756 032672 020001 CMP RO,R1 “SEE IF DATA WAS STORED CORRECTLY 
3757 032674 001401 BEQ 17$ “BRANCH IF STORE WAS CORRECT 
3758 032676 104047 ERROR 47 > INCORRECT STORE 
3759 SFOR TIGHTER SCOPE LOOP 
3760 SREPLACE, ERROR CALL WITH 
3761 5 = 000763 
3762 032700 17%:  ; THE FOLLOWING WILL TEST. Ste? MIPI. 
3764 032700 012737 032732 001110 ov #18%, SLPERR :SET LOOP ON ERROR POINTER TO 18$ 
3765 032706 012737 030340 177776 MOV § #030340,PSW :MAKE PREVIOUS MODE USER 
3766 032714 012700 125252 MOV #125252,R0 “LOAD TEST DATA INTO RO 
3767 032720 012737 100000 001202 MOV #100000.$TMP2 :LOAD VIRT. ADDR. OF TEST LOCATION 
3768 “INTO LOCATION $TMP 
3769 032726 012702 001202 MOV #STMP2,R2 “LOAD ADDRESS OF $TMP2 INTO R2 
3770 032732 010046 18$: MOV RO,-(KSP) “PUSH TEST DATA ON KERNEL STACK 
3771 032734 105037 172310 CLRB KIPDR4 “MAKE KERNEL PAGE 4 NON-RESIDENT 
3772 032740 006672 000000 MIPI a0(R “LOAD TEST DATA INTO PHYSICAL 60000 
3 032744 112737 000006 172310 MOVB #008, KI PDRY “MAKE KERNEL PAGE 4 RESIDENT 
3774 032752 013701 100000 MOV 10000 “READ FROM 


ADDRESS 60000 
3775 032756 020001 CMP ROLR :SEE IF DATA WAS STORED CORRECTLY 
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SHC ORREERES 


032760 
032762 


033059 
033052 


033056 
) 


001401 
104047 


012737 


013746 
013746 
000002 


000004 
012700 


012702 
BiSnoe 


012737 
105037 


ee 
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032172 
002150 


001270 
001266 


077406 
000010 
177600 


rae 

140340 
077406 
000600 
000600 
036514 
100000 
100000 
033546 
177610 
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001272 
601274 
177572 


001110 


177650 


000250 


20$: 


“TEST 45 

+ 

;* 

3* FETCH IS FROM KERNE 

“* 

a 

3% 

** 

:* WILL OCCUR AND TRAP TO 21S. 

** 

5145: SCOPE 

1$: MOV #77406,RO 
MOV #10,R2 
MOV #UIPDRO,R1 

2$: MOV »(R1)+ 
SOB R2,2$ 
MOV #3$, SLPERR 

3$: MOV #140340,PSW 
MOV #77406, KIPDR4 
MOV #600,KIP 
MOV #600, UIPARS 
MOV 36514,R0 
MOV RO, a#10 
MOV #100000.R 
ov #21$,MMVEC 
CLRB —«UIPDR4 


en ee eee NS = 
- ee ee 


14-JAN-81 
MOVE TO PREVIOUS (USER) 
BEQ 19$ 
ERROR 47 
MOV #1$,$LPERR 
MOV #MGMERR .MMVEC 
BR TST45 
MOV (KSP) +, TRAPPC 
MOV (KSP) +. TRAPPS 
MOV SRO,WASSRO 
MOV SR2.WASSR2 
BIC #160000, SRO 
ERROR 51 
MOV TRAPPS , =(KSP) 
MoV TRAPPC , = (KSP) 


——— eee 
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I=SPACE 

BRANCH IF STORE WAS CORRECT 

; INCORRECT STORE 

; TIGHTER SCOPE LOOP 

: REPLACE ERROR cau WITH 
18$'' = 00076 


‘SET LOOP POINTER TO START OF TEST 
RESTORE M.M. VECTOR TO NORMAL ROUTINE 

«BRANCH TO NEXT TEST 

;SAVE PC & PS OF TRAP 


+ SAVE SRO FOR ERROR TYPEOQUT 


REPLACE ERROR CALL WITH 

7A ‘NOP’® 0240 

:PUT PC 7 PS OF TRAP ON STACK 
;RETURN TO TEST 


SLUR RRARERRRERE ERA EEKEEEEEEEEEEEEREREKEEREAEERRERREREREERRERE EE 


MOVE FROM PREVIOUS (KERNEL) I-SPACE TO USER MODE 
THIS ai Ho Mae on” hae PREVIOUS MODE IS KERNEL THE 
THERE IS A ’DESCRIPTION BEFORE EACH DESTINATION MODE TESTED. 


IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT 


WHERE THE ERRORS ARE REPORTED. 


EKER ERERAEEEKERERAAEERAEREAKREEEAEEKEAREAAEAREAREEAEEE 


;MAKE ALL_USER I-SPACE PAGES _— 
;READ/WRITE, LENGTH 200 BLOCKS 
:SET LOOP COUNTER TO 8 
:LOAD ADDRESS OF FIRST PDR IN R1 
LOAD PDR WITH 774 
:LOOP UNTIL 8 USER PDRS LOADED 
LOOP ON 0 3$ 


SET ERROR T 

:GO TO USER MODE FOR THIS TEST 

[KERNEL I-SPACE PAGE 4 READ/WRITE 

“MAP KERNEL I PAGE <7 7 12K 

:MAP USER I PAGE 4 TO 12k 

;LOAD DATA PATTERN INT 0 ~~ 

:LOAD DATA PATTERN INTO PHY 60000 
VIRTUAL ADDRESS INTO "Re 


2 ;LOAD V 
: THE FOLLOWING WILL TEST DSTM=0 MFP] 


;SET M.M. VECTOR TO 21$ 
“MAKE USER I-SPACE PAGE 4 NON-RESIDENT 


Sw 


SEQ 0074 


| K 6 
| CJKDADO KTF11-AA MMU D MACY11 30A(1052) 14-JAN-81 11:36 PAGE 75 


CJKDAD.P11 19-DEt~80 11: 05 145 MOVE FROM PREVIOUS (KERNEL) I=SPACE TO USER MODE SEQ 0075 
3QZ2_-033156 012737 140340 177776 MOV #140240,PSw :MAKE PREVIOUS MODE KERNEL PRESENT USER 
3833 033164 006506 4$: MFP] =“ KSP “PUT KERNEL STACK POINTER ON USER STACK 
3834 033166 022706 000700 CMP #USESTK,USP WAS SOME THING PUSHED ON STACK AT 1$ 
3835 033172 001407 BEQ 5% ;BRANCH IF NOTHING WAS PUSHED 
3836 033174 012600 MOV (USP) +, RO “POP USER STACK INT 0. RO 
3837 033176 012701 001100 MOV #KERSTK,R1 “EXPECTING 1100 AS 
3838 033202 020001 CMP RO.RI “DID YOU GET THE RIGHT POINTER? 

3839 033204 0C1403 BEQ 6$ ; BRAN CH IF YOU DID 

3840 033206 104046 ERROR 46 WRONG THING WAS PUSHED ON STACK 
3841 “FOR TIGHTER SCOPE LOOP 

3842 ;REPLACE ERROR CALL WITH 

3843 :'BR 4$" = 000766 

3844 033210 000401 BR 6$ “BRANCH TO NEXT 

3845 033212 104050 5$: ERROR 50 “NOTHING PUSHED on STACK 

3846 “FOR TIGHTER SCOPE LOOP 

3847 ;REPLACE ERROR CALL WITH 

3848 4$'"' = 000764 

3849 033214 6$: : THE FOLLOWING WILL TEST DSTM=1 MFPI. 

3850 033214 012737 033222 001110 MOV #7$,$LPERR :SET LOOP ON ERROR POINTER TO 7$ 
3851 033222 012737 140340 177776 7S: MOV #140340, Psi “MAKE PREVIOUS MODE KERNEL PRESENT USER 
3852 033230 012700 036514 MOV #365 “LOAD DATA EXPECTED INTO RO 

3853 033234 012702 100000 MOV #100000" Ro “LOAD VIRTUAL ADDRESS INTO R2 

3854 033240 006512 MFP] (R2) “READ FROM PHYSICAL 60000 

3855 033242 012601 MOV (USP) +, R1 “POP USER STACK INTO R1 

3856 033244 020001 CMP RO.R1 “WAS DATA FETCHED SAME AS STORED 
3857 033246 001401 BEQ 8$ “BRANCH IF CORRECT DATA WAS FETCHED 
3858 033250 104046 ERROR 46 “WRONG DATA WAS FETCHED 

3859 :FOR TIGHTER SCOPE LOOP 

3860 REPLACE ERROR CALL WITH 

3861 = 000764 

3862 033252 8$: : THE FOLLOWING WILL TEST a MEPI. 

3863 033252 012737 033260 001110 MOV #9$ RR :SET LOOP ON ERROR POINTER TO 9% 
3864 033260 012737 140340 177776 9S: MOV #140340, PSw “MAKE PREVIOUS MODE KERNEL PRESENT USER 
3865 033266 012702 100000 MOV #100000,R2 *LOAD VIRTUAL ADDRESS INTO R2 

3866 033272 006522 MFP] (R2)+ > ‘EAD FROM PHYSICAL 

3867 033274 012601 MOV (USP) +,R1 {POP USER STACK INTO R1 | 

3868 033276 020001 CMP RO.R1 “WAS DATA FETCHED SAME AS STORED 
3869 033309 001401 BEQ 10$ “BRANCH IF CORRECT DATA aae FETCHED 
3870 033302 104046 ERROR 46 “WRONG DATA WAS FETCHED 

3871 ‘FOR TIGHTER SCOPE LOOP 

3872 ; REPLACE ERROR CALL WITH 

3873 = 000766 

3874 033304 10$: : THE FOLLOWING WILL TEST DSTM=3 MFPI. 

3875 033304 012737 033312 001110 MOV #11$,$LPERR -SET LOOP ON ERROR POINTER TO 11$ 


3876 033312 012737 140340 177776 11%: MOV 4140340 PSW MAKE PREVIOUS MODE KERNEL PRESENT USER 
100000 : 60000 


3877 033320 0065357 100000 MFP I av EAD F PHY 
3878 033324 012601 MOV (USP) +,R1 ;POP USER STACK INTO R1 
79 033326 020001 CMP RO,R1 ;WAS DATA FETCHED SAME AS STORED 
033330 001401 BEQ 12$ ;BRANCH IF CORRECT DATA WAS FETCHED 
3881 035332 104046 ERROR 46 :WRONG DATA WAS FETCHED 


:FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
1$"* = 000767 


033334 12$: ;THE FOLLOWING WILL TEST DSTM=4 MFPI. 
033334 012737 033342 001110 MOV #15$,$LPERR ;SET LOOP ON ERROR POINTER TO 13$ 
033342 012737 140340 177776 13$: MOV 7140840, PSW sMAKE PREVIOUS MODE DERNEL PRESENT USER 


nee += ee we = ee oe 





| 
| ¢ 


————— ——_ — a 
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- —— eee ae ae eee ee ee 
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033350 


033520 


033522 
033530 
033536 
033544 


012702 
006542 
012601 
020001 


012737 


Oooo 
and and and 
Sun 
™N 
WG 
N 


19-DEC~80 1: 05 


100002 


033374 
140340 


100000 
001204 


033434 
140340 


100000 


002150 
000340 
033052 


MACY11 30A(1052) 
145 


001110 
177776 
001202 


001110 
177776 


001110 
177776 
001202 


000250 
177776 
001110 


14$: 


15$: 


16$: 


17$: 


18$: 


19$: 


208: 


~_——— <0 cee 


L 6 
14-JAN-81 11:36 PAGE 76 
MOVE FROM PREVIOUS (KERNEL) I=SPACE TO USER MODE 


MOV #100002 ,R2 LOAD VIRTUAL ADDRESS INTO R2 
-(R2) ;READ FROM PHYSICAL 60000 
MOV (USP) +,R1 :POP USER STACK IN NTO R R1 
CMP RO,R1 | [WAS DATA FETCHED SAME AS STORED 
BEQ 14$ :BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 ;WRONG DATA WAS FETCHED 
:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
" 13$"" = 000766 


:THE FOLLOWING WILL TEST DSTM=5 MFPI. 


MOV #15$,.$LPERR :SET LOOP ON ERROR POINTER TO 15$ 

MOV #140340,PSW “MAKE PREVIOUS MODE KERNEL PRESENT USER 
MOV #100000.$TMP2 :LOAD TEST LOC. VIRT. ADDR INTO LOC. $TMP2 
MOV #<$TMP2+2>,R2  :LOAD ADDRESS OF $TMP2+2 INTO R2 

a-(R2) “READ FROM PHYSICAL 60000 


MOV (USP) +,R1 “POP USER STACK INTO R1 
CMP RO,R1 “WAS DATA FETCHED SAME AS STORED 
BEQ 16$ “BRANCH IF CORRECT DATA FETCHED 
ERROR 46 “WRONG DATA WAS FETCHED 


; REPLACE ERROR CALL WITH 
:'BR 15$°* = 000763 
;THE FOLLOWING WILL TEST DSTM=6 MFPI. 


MOV #17$,$LPERR :SET LOOP ON ERROR POINTER TO 17%. 
MOV #140340,PSW “MAKE PREVIOUS MODE JRERNEL PRESENT USER 


CLR R2 ;MAKE py A BL 2AZ 

MFPI 100000 (R2) ;READ FROM PHYSICAL 60000 

MOV (USP) +,R1 :POP USER STACK INTO R1 

CMP RO,R1 :WAS DATA FETCHED SAME AS STORED 
BEQ 18$ SBRANCH IF CORRECT DATA FETCHED 
ERROR 46 ;WRONG DATA WAS FETCHED 


:FOR TIGHTER SCOPE LOOP 
;REPLACE, ERROR CALL WITH 
= 000766 


:THE FOLLOWING WILL TEST "DSTM=7 MFPI. 
ov #19$,$LPERR :SET LOOP ON ERROR POINTER TO 19% 


MOV #140340,PSW “MAKE PREVIOUS MODE KERNEL PRESENT USER 
MOV #100000 , $TMP2 : a INTO $TMP2 


MOV MP2 ,R2 ;LOAD ADDRESS OF Sime? IN 

MFP I @0(R2) ;READ FROM PHY 

MOV (USP) +,R1 :POP USER STACK INTO R 

CMP RO,R1 :WAS DATA FETCHED SAME AS STORED 
BEQ 20$ ;BRANCH IF CORRECT DATA FETCHED 


ERROR 46 ONG DATA WAS FETCHED 


;WR 
sFOR TIGHTER 


SCOPE LOOP 
REPLACE ERROR CALL WITH 
:‘BR 19$'' = 00076 
MOV AMGMERR .MMVEC ;SET M.M CTOR TO NORMAL ROUTINE 
MOV #00340,PSW :GO BACK TO KERNEL MODE, PREVIOUS KERNEL 


; E, 
MOV #1$,$LPERR :SET LOOP POINTER TO START OF TEST 
BR TST46 : ;BRANCH TO NEXT TEXT 


ee ee ee 


SEQ 0076 


| 


-— -—_ ——- = 


| EDAD PN 





033546 


3 
033702 


033704 
033710 
033712 


a A 
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012657 


013746 
013746 
000002 


000004 
012737 
106506 


022706 


000401 
104054 


104054 


612746 
106606 
012737 


001270 
001266 


030340 


001100 


90070C 


Oo aees 
007777 


007777 


000700 
033616 


— —— ae oe eee eee ee 


MACY11 30A(1052) 
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21$: 


001272 
001274 
177572 


ee eee a —- —— --.- 
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E FROM PREVIOUS (KERNEL) I-SPACE TO USER MODE 


14-JAN=81 

MOV 

MOV (KSP) +, TRAPPC 
MOV (KSP) +, TRAPPS 
MOV SRO, WASSRO 
MOV SR2.WASSR2 
BIC #160000, SRO 
ERROR 

MOV TRAPPS , = (KSP) 
MOV TRAPPC , =(KSP) 


;SAVE PC & PS OF TRAP 


;SAVE SRO FOR ERROR TYPEOUT 

:SAVE SR2 FOR ERROR TYPEOUT 

> CLEAR 7 ie BITS IN SRO 

[¥ READ NON-RESIDENT PAGE 
SCOPE LOOP 


REPLACE ERROR CALL WITH 
000240 


"NOP" 2 
‘PUT PC g PS OF TRAP ON STACK 


;RETURN TO TEST 


SS RRRAEAEREAAKAAEEERAARERARRAA AAA AARAAAEKAAAAERAAEHAAAAAAKRARRARA AAAS 


Z*TEST 46 
;* 

THIS TEST CHECKS THAT SINCE THERE IS NO DISTINCTION 
BETWEEN INSTRUCTION AND DATA SPACE IN THE FONZ~-11 
MFPD & MTPD SHOULD BE DECODED THE SAME AS MFPI & MTPI. 


TARP EAESSASASLALALSELESLLALARARRA REE ARARSARR RR SE SAR RRR RRARAA RASA SASS SS SS 


se 

** 

*e 

:* 

+S 146: 
177776 =1$: 


2$: 


001110 3$: 
4$: 


5$: 
001110 


SCOPE 


MOV 
MTPD 


MOVE FROM/TO D=-SPACE 


#030340,PSW 
USP 


#KERSTK ,KSP 
2$ 


(KSP)+,RO 
~< 5g = aia 


53 


3$ 
54 


#4$,$LPERR 
#7777 -(KSP) 


USP 
(KSP)+,R1 
#7777 ,R1 


5$ 
54 


+ fable 
U 
#1$,$LPERR 


= MOVE FROM/TO I-SPACE 


sMAKE PREVIOUS MODE=USER, wt 7a 
:MFPD SHOULD ACT LIKE MFPI PUTTING 
USER STACK POINTER ON THE KERNEL STACK 
WAS SOMETHING PUSHED ON KERNEL STACK? 
“BRANCH IF NO 
;POP KERNEL STACK INTO RO 
sEXPECTING TO GET 700 AS USP 
:DID GET RIGHT POINTER VALUE? 
BRANCH | IF YES 
;WRONG THING WAS PUSHED ON STACK 
:FOR TIGHTER SCOPE LOOP 
7 REPLACE ERROR CALL WITH 
:‘BR 1$"* = 000763 
BRANCH TO NEXT TRY 
;NOTHING PUSHED ON STACK 
:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
"BR 1$°' = 000761 
3SET LOOP ON ERROR ec TO 4$ 


:POP 
: WAS USER STACK POINTER CHANGED? 


:BRANCH IF YES 
a STACK POINTER NOT CHANGED 
;FOR TIGHTER SCOPE LOOP 

; REPLACE, ERROR CALL WITH 

:"BR 4$°* = 000767 


GET READY TO RESTORE USER STK, PTR. 
sRESTORE USER STACK POINTER 
:SET LOOP POINTER TO START OF TEST 


SRR ERE AREER EERE TERE RAE R ERR RARER REE RR RARER REAR ER ERAS 


SEQ 0077 


__ _-— — -- —_ Se — ae pee oe -_——- -_——— -_—- ~«- —- e- .— eas —— e+ —w oo —— ee 
- “———-— — —_— - —— 
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PAGE 78 
MOVE FROM PREVIOUS I=SPACE (PREVIOUS=CURRENT=KERNEL ) 


CJKDAD.P11 19=DEC-80 11:05 SEQ 0078 
£000 esTEST 47 MOVE FROM PREVIOUS I=SPACE (PREVIOUS=CURRENT=KERNEL ) 
400 ce THIS TEST CHECKS THAT IF BOTH PREVIOUS AND CURRENT MODES 
400 ;* ARE KERNEL, AND THE SOURCE MODE IS 0, THE DESTINATION 
4004 sf STACK IS NOT DECREMENTED BEFORE ACCESS. 

4005 ;* "MFPI KSP"' SHOULD PUSH THE NON=DECREMENTED VALUE 

4006 ;* OF KSP (1100) ONTO THE STACK (AT LOC. 1076). 

4007 MTTITIIITISI TLE LILLIE EEL LLL LEE LL 
4008 033720 000004 TST47: SCOPE 

4009 033722 005037 177776 1$: CLR aAi?SW ;SET PREVIOUS = CURRENT = KERNEL 
4010 033726 012700 001100 MOV ASTACK,RO ;SETUP VALUE FOR STACK POINTER 

4011 033732 010006 MOV RO,KSP :LOAD STACK, POINTER 

4012 033734 006506 MFP I KSP 3 THE VALUE ‘‘STACK*’ SHOULD BE PUSHED 
4013 BEFORE yg DECREMENTED 

4014 033736 011601 MOV (KSP) ,R1 READ DATA WHICH WAS PUSHED 

4015 033740 020001 CMP RO,R1 “WAS THE ORIGINAL VALUE OF THE 

4016 ; STACK Ba ye PUSHED? 

4017 033742 001401 BEQ 2$ H IF YES 

4018 033744 104046 ERROR 46 “ME PI FETCHED WRONG DATA 

4019 :FOR TIGHTER SCOPE LOOP 

4020 *REPLACE ERROR CALL WITH 

4021 :"BR 1$'' = 000766 

4022 033746 005740 2$: TST -(RQ) :SETUP EXPECTED STACK POINTER VALUE 
4023 033750 020600 CMP KSP,RO 3WAS THE STACK POINTER DECREMENTED? 
4024 033752 001401 BEQ 3$ ;BRANCH IF YES 

4025 033754 104050 ERROR 50 ;STACK NOT PUSHED BY THE MFP] 

4026 sFOR TIGHTER SCOPE LOOP 

4027 sREPLACE ERROR CALL WITH 

4028 1$"' 0762 

4029 033756 012706 001100 3$: MOV ASTACK ,KSP ‘RESTORE STACK POINTER 


ae ee em et 





P11 


033762 


-———_— — — — ———=——a— 
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0 
034046 
013746 
104405 


030060 
034134 
013746 
104405 


000442 


000005 
004710 


AG 


034030 


047105 
051523 


001234 


034062 
047524 


030020 


001112 


001223 
000042 


034164 


MACY11 ee 


001234 


020104 
021440 


040524 


a 
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F PASS ROUTINE 
-SBTTL END OF PASS ROUTINE 


SEG GOs 


WETTLILI LLL LILLE iis 
: S INCREMENT THE PASS NUMBER ($PASS) 
:*TYPE "END OF PASS #XXXX 
= TOTAL NUMBER OF ERRORS SINCE LAST REPORT yyyy"' 
= *WHERE XXX AND YYYY ARE DECIMAL NUMBERS 
:*IF SW12=1 INHIBIT TRACE TRAP 
: IF THERES A MONI TOR GO TO IT 
:*]F THERE ISN'T JUMP TO LOOP 


SEOP: a 


CLR STSTNM ;:ZERO THE TEST NUMBER 
CLR STIMES :2ZER O THE NUMBER OF ITERATIONS 
INC $PASS : INCREMENT THE PASS NUMBER 
BIC #100000,$PASS ON'T ALLOW A NEG. NUMBER 
DEC (PC) + «LOOP? 
SEOPCT: .WORD 1 
BGT 


$DOAGN s VES 
MOV Sigel intl : ;RESTORE COUNTER 


SENDCT: sehr 


TYPE ,65$ os Ue ASCIZ STRING 
é4$ :GET OVER THE ASCIZ 
65$: AS.CIZ <12><15>/END PASS #/ 
~EVEN 
64$: 
MOV $PASS ,- (SP) : SAVE SPASS FOR TYPEOUT 
:: TYPE PASS NUMBER 
TYPDS ss 0 TYPE=-DECIMAL ASCIZ WITH SIGN 
TYPE 673% TYPE ASCII STRING 
BR 66$ GET OVER THE ASCIZ 
673: ASCIZ ff ; TOTAL ERRORS SINCE LAST START AT 200 / 
.EVEN 
663: 
MOV SERTTL,-(SP) oe 5° SERTTL FOR TYPEOUT 
TOTAL NUMBER OF ERRORS 
TYPDS 760 TYPE=-DECIMAL ASCII WITH SIGN 
TYPE , SCRLF : TYPE CARRIAGE RETURN, LINE FEED 
$GET42: MOV af42,R0 :3GET MONITOR ADDRESS 
BEQ DOAGIN : SO SURE H IF NO MONITOR 
CLR ~(SP) ; s INSURE THE ft T's 2 ‘a 
MOV A$CLR.T,- (SP) ETUP FOR AN RTI OR R 
BR $RTRN *260 DO AN RTI OR RIT 10. LOAD THE PSwW 
::WITH A CLEARED ‘'T’’ BIT 
$CLR.T: RESET >: CLEAR THE WORLD 
$S$ENDAD: JSR PC, (RO) ::GO TO MONITOR 





mem mee nn me 


r —— <= 
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4109 
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WN 0 OBNOUS WO 


090240 
000240 
000240 


013737 


000416 


0004 
022626 
012637 
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000004 
034222 
000001 
000004 
001176 
000020 
010000 


034276 


000020 
034272 


377 


040000 


000004 
034344 


77060 


: 
000004 


000004 


MACY11 SA 102) 
END O 


001176 
000004 
164000 


000004 


144670 


000 


144624 


000004 


DOAGIN: 


1$: 


2$: 
SDOAGN: 


1$: 
SRTRN: 


$LOOP: 


$RTNAD: 


$TBIT: 


SENULL: 
-EVEN 
-SBTTL SCOPE HANDLER ROUTINE 


14-JAN-81 

F PASS ROUTINE 

NOP 

NOP 

NOP 

MOV O44, a4STMPO . 
MOV #1S 044 

MOV #1,04164000 
BR 2$ 

ADD #4 ,SP 

MOV @ASTMPO ,a44 
TRAP 

BIC #20, (SP) 
BIT #B1T12,aSWR 
BNE 1$ 

COM $TBIT 

BMI 1$ 

BIS #20, (SP) 

V #$LOOP ,-(SP) 

RTI 

JMP a(PC)+ 
«WORD RESTRT 
-WORD Q 

BYTE =-1,-1,0 


cz 
11:36 PAGE $9 


::SAVE ROOM 
*ZACT11 


;SAVE CONTENTS OF LOCATION 4 

:SET UP VECTOR IN CASE OF TRAP 
:NOTIFY MULTI- TESTER OF PASS COMPLETE 
;IF NO TR ON*T TOUCH STACK 

sRESET STACK IN CASE OF TRAP 

;RESTORE CONTENTS OF LOACTION 4 


+ ¢PUSH 7? PSW AND PC ON STACK 
3:CLEAR THE ‘'T’* BIT 


L 
+ ¢RUN ge TRACE TRAP? 
3338 IT TIME FOR TRACE TRAP 


:BR_IF NO 
7:SET TRACE TRAP 
33 JUMP TO START OF TEST 
¢ ¢RETURN@=THIS, IS CHANGED TO 
AN 'RTT’’ IF ‘RTT’ IS A LEGAL 
‘INSTRUCTION 


3 ;RETURN 


3:''T'' BIT STATE INDICATOR 
3zNULL CHARACTER STRING 


FERRER ERREEREEREEERERERKEEEKERAEEKEKEKEEEEREEREEERERERRRERE EE 


SRTHIS oe te CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 


> *AND 


L 


THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 


:*AND LOAD THE ERROR FLAS ($ERFLG) INTO DISPLAY<15:08> 
; * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


LOOP ON TEST 

INHIBIT ITERATIONS 

LCOP ON ER 

LOOP ON TEST IN SWR<7:0> 
7; SCOPE=I0T 


BNE 
; AAARASTART 
SXTSTR: 


5$: 


BR 


4#B1T14,aSWR 


VER 
OF ay FOR THE XOR 


@4ERRVEC ,- (SP) 
#5$ ,AMERRVEC 


a4#1 77060 
(SP) + ,a#ERRVEC 
$SSVLAD 


(SP)+, (SP)+ 


(SP)+, a#ERRVEC 





Ahi FOR CHANGE IN SOF T-SWR 
;LOOP ON PRESENT TEST? 
YES IF Swi4=1 


TESTERMAMiR 
;1F RUNNING ON THE *‘XOR'* TESTER CHANGE 
: THIS INSTRUCTION 10 A ‘NOP’ (NOP=240) 
$I SAVE THE CONTENTS OF THE ERROR VECTOR 
FOR TIMEOUT 


IME OUT ON XOR? 
: TRESTORE THE ERROR VECTOR 

:GO TO THE NEXT TEST 

[CLEAR THE STACK AFTER A TIME OUT 
® ERESTORE THE ERROR VECTOR 


A mm me 


SEQ 0080 





034352 
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000423 
032777 
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000400 
144550 
001103 
001115 
001000 
001110 


001103 
001212 


004000 
001234 


001162 


001170 


MACY11 a Fe gt 


144556 
001102 


001103 
144520 
001106 


144466 


001104 


001104 
001212 


001232 


001115 
144366 


ee ee ee ——— 
oe 
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— HANDLER ROUTINE 


BR 7$ LOOP ON og PRESENT TEST 
meehdmees . OF CODE FOR THE KOR’ TESTERMMAHH 


IT #B1T08,aSWR + LOOP ON SPEC. TEST? 
BEQ 2$ 7BR IF NO 
CMPB @SWR,STSTNM ::0N THE RIGHT TEST? SWR<7:0> 
BEQ SOVER ;:BR_IF YES 
2$: TSTB SERFLG :¢HAS AN AN ERROR OCCURRED? 
BEQ 3$ :BR IF NO 
CMPB SERMAX , SERFLG 7 MAX. ERRORS FOR THIS TEST OCCURRED? 
BH! ay IF NO 
BIT #B1T09,aSWR >;LOOP ON ERROR? 
BEQ 4$ :BR_IF NO 
7$: an —- SISET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB SERFLG :3ZERO THE ERROR FLAG 
CLR STIMES 3:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ :;ESCAPE TO THE NEXT TEST 
3$: BIT #B1T11,@SWR 23 ee ITERATIONS? 
BNE 1$ :BR IF YES 
TST $PASS 335F FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
INC $ICNT :: INCREMENT ITERATION COUNT 
CMP STIMES ,SICNT + 3 CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER ;BR IF MORE ITERATION REQUIRED 
1$: MOV #1 ,$1CNT 


. 3 SREINITIALIZE THE ITERATION COUNTER 

MOV SMXCNT,STIMES ;SET NUMBER OF ITERATIONS TO DO 
STSTNM 7:COUNT TEST NUMBERS 

MOVB STSTNM,STESTN + 3SET TEST NUMBER IN APT MAILBOX 

MOV (SP) ,$LPADR 


MOV (SP) ,SLPERR ;zSAVE ERROR LOOP ADDRESS 
CLR SESCAPE fe ag THE ESCAPE FROM ERROR ADDRESS 
MOVB #1 , SERMAX Y ALLOW ONE(1) _— ON NEXT TEST 


SSVLAD: 


SOVER: MOV TSTNM, DISPLAY : DISPLAY TEST NUMBE 
MOV SLPADR, (SP) sFUDGE RETURN ADDRESS 
RTI FIXES PS 
$MXCNT: 200 SIMAX. NUMBER OF ITERATIONS 


-SBTTL ERROR HANDLER ROUTINE 


EA RSEISIO IAI OISIS OIE ID ISO OOIIOIOIOUIDUOUOIIOIU RE Ci nith int tt 
SSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; *SAVE THE ERROR bs NUMBER AND THE ADDRESS OF THE ERROR CALL 

:*AND GO TO ERRTYP ON ERROR 
:*THE SWITCH ai ing tL BY THIS ROUTINE ARE: 


*SW15= ERROR 
INHIBIT ERROR TYPEOUTS 


7 *SW135=1 
+ *SW10=1 BELL ON ERROR 
a LOOP ON ERROR 
-* 
.* ERROR N > ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR :: TEST FOR CHANGE IN SOFT-SWR 


SAVE THE CONTENTS OF RO 
:SAVE THE CONTENTS OF R1 
:SAVE THE CONTENTS OF R2 
:SAVE THE CONTENTS OF R3 


MOV RO,$REGO 


MOV R3,$REG3 





ome we ee ee 


SEQ 008 


ee ee ee ee ——— — —_ or ——E ee = 
- —— 9» — sa —_——- 
—_—- ~~ — ee ee ee eee ee 
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RK KARR KEEEEEEEKEEEKKEREKREEREEEAEKEEEEEKEEKEKEEEEEEEREEREE 


SRTHIS ROUTINE USES THE “‘ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 


; *ERROR 


IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 


: sAND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


THIS, Ahi teat AUTOMATIC ‘CARRIAGE RETURN-LINE FEED"’ 
TWO SPACES ARE TYPED AFTER EACH 1? FOR ‘DT"’ 

FOR $ITEMB=0, JUST THE ERROR PC IS TYPED 

i AVAILABLE FORMATS FOR TYPING DATA ARE : 


FORMAT 
0 TYPE A 6 DIGIT OCTAL NUMBER (FROM 16-BIT BINARY) 





em oe eee 


CJKDADO KTF11-AA MMU D MACY11 pgs 14-JAN-81 
CJKDAD.P11 19-DEC=BO. 11: 05 RROR HANDLER ROUTINE SEQ 0082 
034 010437 0011 MOV R4,$REG4 sSAVE THE CONTENTS OF RG 
034612 010537 001174 MOV R5,$REG5 =SAVE THE CONTENTS OF RS 
034616 113737 001102 901262 MOVB S$TSTNM,TESTNO :SAVE THE TEST NUMBER 
034624 105237 001103 7$: INCB SERFLG i THE ERROR FLAG 
034630 001775 BEQ 7$ : :DON'T LET THE FLAG GO TO ZERO 
034632 013777 001102 144302 MOV $TSTNM,@DISPLAY : s;DISPLAY TEST NUMBER AND ERROR FLAG 
034640 032777 2 144272 BIT #B1T10,aSWR *:BELL ON ERROR? 
034646 001402 BEQ 1$ :zNO - SKIP 
034650 104401 001216 TYPE , SBELL ; ;RING SELL 
034654 005237 001112 1$: INC SERTTL : COUNT THE NUMBER OF ERRORS 
034 011637 001116 MOV (SP) , SERRPC + GET ADDRESS OF ERROR INSTRUCTION 
034 162737 001116 SUB #2, 
034672 117737 144220 001114 MOVB @SERRPC,S$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
034700 032777 0000 144232 BIT #B1T13,aSWR :zSKIP TYPEOUT IF SET 
034 001004 BNE 20$ -:SKIP TYPEOUTS 
034710 004737 035022 JSR PC,ERRTYP :;GO TO USER ERROR ROUTINE e 
034714 104401 001225 TYPE ,SCRLF 
034720 208: 
034720 122737 000001 001246 CMPB #APTENV, SENV : ¢RUNNING IN APT MODE 
634726 001007 BNE 2$ :NO,SKIP APT ERROR REPORT 
934730 113737 001114 034742 MOVB SITEMB,21$ -:SET ITEM NUMBER AS ERROR NUMBER 
C34 004737 037454 JSR PC, SATY4 : ;REPORT FATAL ERROR TO APT 
034742 0 21$: -BYTE 0O 
034743 00 -BYTE OQ 
034744 000777 22$: AR 223 : APT ERROR LOOP 
034746 005777 144166 2s: TST aSwR T ON ERROR 
034752 2 BPL 3$ 33 SKIP IF CONT INUE 
034754 HAL T sHALT ON ERROR! 
034756 104410 CKSWR : TEST FOR CHANGE IN SOF T-SWR 
0347 032777 001000 144152 3$: BIT #BITO9,aSWR ::LOOP ON ERROR SWITCH SET? 
0347 0014 BEQ ::BR IF NO 
034770 013716 001110 MOV SLPERR, (SP) : FUDGE RETURN FOR LOOPING 
034774 005737 001214 4$: TST SESCAPE :; CHECK FOR AN ESCAPE ADDRESS 
035000 001402 BEQ 5$ ::BR IF NONE 
O Fe one 013716 001214 5s MOV SESCAPE, (SP) : FUDGE RETURN ADDRESS FOR ESCAPE 
35006 022737 034166 000042 CMP #SENDAD , 442 ::ACT-11 AUTO-ACCEPT? 
035014 001001 BNE 6$ : ;BRANCH IF NO 
035016 000000 HALT :: YES 
035020 6$: 
035020 000002 RTI : RETURN 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


= — ee 


| 


LL A Te eee 


| CJKDADO KTF11=AA MMU DIAG 
CJKDAD.P11 





035022 


0 

035132 
035134 
035136 
035140 


035142 


035154 


035156 


035170 


104402 
0004 


001003 


013146 


19=DEC-80 11:05 


001223 


001114 


001116 


001316 
035074 


001223 
035112 


001223 


000001 


000002 


MACY11 i et 


ERRTYP: 


1$: 


2$: 
3$: 


4$: 
5$: 


6$: 


14-JAN-81 
RROR MESSAGE TYPEOUT ROUTINE 


wno=— 


7 
11:36 * PAGE 83 


TYPE A DECIMAL NUMBER WITHOUT LEADING ZEROS 
TYPE A 16 DIGIT BINARY NUMBER 
TYPE A 6 DIGIT OCTAL NUMBER (FROM 18-BIT BINARY) 


- $CRL 
RO, ASP) 


R 
431 TEMB,RO 
1$ 


SERRPC ,-(SP) 


q 
ASERRTB,RO 
(RO)+,2$ 
3$ 


, SCRLF 
(RO) +,4$ 
5$ 


: CARRIAGE RETURN'' & ‘LINE FEED’ 
“PICKUP THE ITEM INDEX 


:1F ITEM NUMBER IS ZERO, JUST 
:TYPE THE PC OF THE ERROR 

7:SAVE SERRPC FOR TYPEOUT 

;sERROR ADDRESS 

+360 — ASCIIC(ALL DIGITS) 


‘ADJUST THE wo SO THAT IT WILL 
: WORK FOR THE ERROR TABLE 


;FORM TABLE POINTER 
:PICKUP ‘ERROR ‘gay in 


E 
PICKUP ‘DATA HEADER’ POINTER 
SKIP TYPEOUT IF 0 
TYPE THE ‘DATA HEADER"’ 
:'DATA HEADER"’ POINTER GOES HERE 
Py RETURN’ & “LINE FEED"’ 


SAVE R 

sPICKUP © "DATA TABLE** POINTER 
BR IF DATA TO BE TYPED 
PICKUP MPDATA FORMAT*’ POINTER 
:IS IT FORMAT 0? 

:BR IF NO 


;*THIS yA IS ‘ OCTAL (16-BIT) FORMAT (DF=0) 


7$: 


TY 
BR 


BNE 
MOV 
YP 


TYPDS 
BR 


R1)+,-(SP) 
11$ 


8$ 
@(R1)+,=(SP) 
11$ 


7:SAVE @(R1)+ FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII(ALL DIGITS) 


;*THIS CODE IS FOR DECIMAL FORMAT (DF=1) 
CMPB (RO) #1 


:I1S IT FORMAT 1? 


;BRANCH IF NO 
7:SAVE a(R1)+ FOR TYPEOUT 
3:GO0 TYPE--DECIMAL ASCII WITH SIGN 


:*THIS CODE IS FOR BINARY FORMAT (DF=2) 
8$: CMPB (RO) ,A2 iI 


BNE 
MOV 


TYPBN 


BR 


@(R1)+,-(SP) 
11$ 


S IT FORMAT 2? 


:BRANCH IF NO 
i: SAVE a(R1)+ FOR TYPEOUT 
O TYPE--BINARY ASCII 


SEQ 0085 


| CJKDADO KTF11=AA MMU DI 
| CJKDAD.P11 
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WG 
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OOC@BnOuUlfwnr— 


x 
ie 


4321 
4322 


035172 
035204 
035210 
035212 
035214 


C35242 


012146 
004737 
062716 
012637 
104401 
000000 
005711 

04 


01 
105720 
000740 


0040 
035246 


ee — ee ee - _ —_——— 
——— — mmm em a ee ee — = 


AG 
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035242 


6 7 
MACY11 SDAC NODE) 14-JAN-81 11:36 PAGE 84 
ERROR MESSAGE TYPEOUT ROUTINE 


-*xTHIS CODE IS FOR OCTAL (18-1) FORMAT (DF=3) 
5s: MOV R1)+,=(SP) sPUT ADDRESS OF FIRST LOC. ON STACK 
JSR Pe. $DB20 =CONVERT TWO LOCS. TO AN ASCII STRING 
ADD #5, (SP) “ONLY NEED 6 CHARACTER S NOT 11 


MOV (SP) +,10$ [PUT ADDRESS OF ASCII CHARS. AT 10$ 
TYPE :TYPE OCTAL VALUE OF 18-BIT BINARY NO. 
10$: -WORD 0 
11$: TST (Ri) +S THERE ANOTHER NUMBER? 
BEQ 12$ 
TYPE ,14$ sTYPE TWO(2) SPA 
TSTB (RO) + sPOINT TO NEW DATA FORMAT** 
R 6$ ; LOOP 
12$: MOV (SP)+,R1 RESTORE R1 
13$: MOV (SP)+,RO SRESTORE RO 
TYPE . SCRLF ; CARRIAGE RETURN’’ & “LINE FEED"’ 
RTS PC SRETUR 
14$: Aatig / f ‘TwOCD) SPACES 
EVEN 


SEQ 0084 





CJKDAD.P11 


035246 
035262 


035266 
035272 
035276 
6353500 


035332 


033727 


011637 


042716 
012746 


000006 
000207 


033727 


olele] eo) eo) oe) eo) =) 
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MMM Nr 

™m 
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Aw 


™ 
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177776 


177776 
001276 


000020 
035300 


001276 
001276 


000340 
035332 


177777 


MACY11 30A(1052) 


000020 


000020 


001276 
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SUBROUTINES USED BY THIS PROGRAM 


-SBTTL SUBROUTINES USED BY THIS PROGRAM 
-SBTTL TURN OFF T=BIT AND SAVE CURRENT PSW 


ant ih at ihc eal leniaieaaiiacieiarinciasintn 


geaene zgaaee 


eaxaenke wenene 


+ 
:* THIS SUBROUTINE IS USED TO TURN OFF THE TRACE TRAP BIT IN THE PSW 
3° IF IT IS ON. THE PROCESSOR STATUS IS SAVED IN ‘‘TBITPS** SO THAT 
;* THE PSW CAN BE RESTORED TO ITS PREVIOUS CONDITION WHEN CONDITIONS 
:* WARRANT T-BIT TRAPPING. 
** 
gaa aga a alumna gee ng ge nin anal 
TOF F BIT PSW,ATBIT 31S THE T-BIT SET IN THE PSW? 

BEQ 1$ :EXIT IF NO 

MOV PSW,=-(SP) [PUSH PRESENT PSW ON THE STACK 

MOV (SP), TBITPS ZALSO SAVE IT_IN ‘'TBITPS'’ FOR 

;RESTORING LATER 

BIC ATBIT, (SP) sCLEAR THE T-BIT (BIT 4) IN THE PSW 

MOV #1$,-(SP) ; PUSH PC OF ‘RTS'’ ON STACK 

RTT RETURN'’ TO 1$ WITH T-BIT OFF 
1$: RTS PC “RETURN TO PROGRAM 


.SBTTL TURN ON T=BIT AND RESTORE PREVIOUS PSW 


SL RRA EREREEEERREAERARERAAEERERREREERRERERREREEES 


** 
;* THIS SUBROUTINE IS USED TO RESTORE THE PROCESSOR STATUS TO ITS 
; PREVIOUS CONDITION BY RESTORING THE “‘T-BIT PSW'* SAVED BY THE 

; “"TOFF'’ SUBROUTINE IN THE ‘‘TBITPS** LOCATION. 

** 


RRA EEEEAAKEKEKAREEAAEEKEKEREKEEREKEAAEREAAREREERE 


i 


ON: BIT re, #TBIT :WAS T-BIT ON IN THE PREVIOUS PSW? 
BEQ 1$ ZEXIT IF NO 
MOV TBITPS ,~(SP) [PUSH PREVIOUS PSW ON THE STACK 
MOV #340, TBITPS RESET THE ‘‘TBITPS** LOCATION 
MOV #1$,-(SP) :PUSH PC OF ‘RTS’ ON STACK 
RTT :" RETURN’ TO 1$ WITH T-BIT RESTORED 
1$: RTS PC [RETURN TO PROGRAM 


-SBTTL SET ALL WRITEABLE BITS IN ALL PAR/PDR'S 


5 ERR REREEEERERERREAEEARAERERRAEERAEEEEERERRARRERAER ERE EER 


te 

7° THIS SUBROUTINE IS USED BY THE PAR/PDR DUAL ADDRESSING TEST 
.* TO SET ALL we BITS IN ALL KERNEL AND USE PAR'S AND 

.* PDR'S TO A 1 THE "‘INITIAL STATE*’ OF HAVING ALL BITS=1 IS 
Pad USED TO SEE THAT ONLY ONE REGISTER IS CLEARED IN RESPONSE TO 
;* A SINGLE PAR OR PDR ADDRESS. 

** 
SUEIIOOIISIIIOISIOI ONESIES IDOI IID TID OOOO nth tit hint tts 
SETREG: MOV #10,R2 sLOAD LOOP COUNTER WITH AN 8 

MOV #k 1PDRO. v4 [LOAD ADDRESS OF FIRST PDR INTO R1 
1$: MOV #-1,(R :SET BITS IN KERNEL PDR TO 1 


SOB R2 is. ‘LOOP TO 1$ UNTIL ALL KERNEL PDR'S LOADED 
MOV #10,R2 “LOAD LOOP COUNTER WITH AN 8 
MOV #KIPARO,R1 “LOAD ADDRESS OF FIRST PAR INTO R1 
2$: MOV #-1,(R13+ “SET BITS IN A KERNEL PAR TO 1 
SOB R2,2$ “LOOP TO 2$ UNTIL ALL KERNEL PAR'S LOADED 





ewe we ome ee tee eee 


SEQ 0085 


| 
| 


— ee ee 


CJKDADO KTF11-AA MMU DIAG 
CJKDAD.P11 


035370 
035374 
0354 


035424 


035426 


035454 


035456 


035544 


012701 
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000010 
177600 
177777 
000010 
177640 
177777 


172300 
000010 
077416 


000002 


172340 
000010 
177777 


000002 


177600 
000010 
077416 


TTT 


MACY11 30A(1052) 


3$: 


4$: 


A 
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SET ALL WRITEABLE BITS IN ALL PAR/PDR'S 


#10,R2 
#UIPDRO, R1 
#-1,(R1)+ 
R2, 3$ 
#10,R2 
#UIPARO,R1 
#-1,(R1)+ 
R2.4$ 

PC 


;LOAD LOOP COUNTER WITH AN 8 

LOAD ADDRESS OF FIRST POR INTO R1 

:SET BITS_IN A_USER PDR TO 1 

; LOOP TO 3$ UNTIL ALL — PDR*S LOADED 
;LOAD LOOP COUNTER WITH AN 8 

“LOAD ADDRESS OF Ag Ue PAR INTO R1 

:SET BITS IN A _USER PAR TO 1 

:LOOP TO 4$ UNTIL ALL USER PAR'S LOADED 
SRETURN TO TEST 


- SBTTL READ & COMPARE KERNEL & USER PAR/PDR'S 


TORR AAAEAASEAASALASALELELARS SER EEA ERR RRA RARARRARAAARAARARASAS ASS S| 


“i Porerera ar ar er 


2$: 


3$: 


4$: 


5$: 


THIS SUBROUTINE IS USED BY PAR/PDR DUAL ADDRESSING TEST TO 
READ ALL THE PAR'S AND PDR'S TO SEE THAT ONLY ONE REGISTER 
WAS CLEARED IN RESPONSE TO A SINGLE PAR OR PDR ADDRESS. 

ANY FAILURES FOUND BY THE PAR/PDR DUAL ADDRESSING TEST WILL 
BE REPORTED BY THIS SUBROUTINE. 


#KIPDRO,R1 
#10,R4 


#77616,R5 
(R1) .R5 
2$ 


R1,RO 


2$ 
(R1),R2 
16 


#2,R1 

RL, 3$ 
#uIPDRO. ARI 
#77616,R5 
(RI), ARS 


6 
R1,R0 
6$ 





TOROS ASESSESASASALASALSLEALALSAEE RES ESE SERA A RAR ARRAS ALARA ASS ASA AAAS S| 


;LOAD ADDRESS OF FIRST —s PDR IN R1 
sl LOOP COUNTER WITH AN 8 

:PUT EXPECTED PDR CONTEN NTS IN R5 

TARE ALL WRITEABLE BITS SET AS EXPECTED? 
BRANCH IF YES 

;WAS IT THE REG. THAT WAS CLEARED? 
“BRANCH IF YES 

oy CONTENTS OF IMPROPERLY CLEARED REGISTER 

A PDR WAS EFFECTED —— A DIFFERENT PAR/PDR 


;FORM NEXT ADDRESS 

:LOOP TO 1$ UNTIL ALL KERNEL PDR'S CHECKED 
[LOAD ADDRESS OF FIRST KERNEL PAR IN R’ 
;LOAD LOOP COUNTER WITH AN 8 

:PUT EXPECTED PAR CONTENTS IN RS 

SARE ALL WRITEABLE BITS SET AS EXPECTED? 
;BRANCH IF YES 

sWAS IT THE a THAT WAS CLEARED? 


:BRANCH IF 
‘ CONTENTS OF IMPROPERLY CLEARED REGISTER 
PAR WAS EFFECTED BY CLEARING A DIFFENENT PAR/PDR 
‘FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
ZAN "RTS PC’ = 000207 
sFORM NEXT ADDRESS 
[LOOP TO 3$ UNTIL ALL KERNEL PAR*S CHECKED 
= LOAD ADDRESS OF FIRST USER PDR IN R1 
sLOAD LOOP COUNTER WITH AN 8 
BUT EXPECTED PDR CONTENTS IN %5 
ARE ALL rae BITS SET As EXPECTED? 


:BRANCH IF YES 
sWAS IT THE REG. THAT WAS CLEARED? 
*BRANCH IF YES 


SEQ 0086 


_———_———— ee ee —_— _—-—— —— ——_ _—— ee eee | ee eC -_——_— - 
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CJKDADO KTF11-AA MMU DIAG PAGE 87 
READ & COMPARE KERNEL & USER PAR/PDR'S 


—_—S Ee ee eee 
LS 


CJKDAD.P11 19=DEC-80 11:05 SEQ 0087 
4444 035546 011102 MOV (R1),R2 : SAVE CONTENTS OF IMPROPERLY CLEARED REGISTER | 
4445 035550 104016 ERROR 16 A PDR WAS EFFECTED BY CLEARING A DIFFERENT PAR/PDR | 
4446 “FOR TIGHTER SCOPE LOOP | 
4447 REPLACE ERROR CALL WITH 
4448 “AN RTS PC = 000207 
4449 035552 0627 000002 6$: ADD #2. R1 “FORM NEXT ADDRESS 
4450 025556 077611 SOB 4,5$ sLOOP TO 5$ UNTIL ALL USER PDR'S CHECKED 
4451 035560 012701 177640 MOV muiParo, R1 LOAD ADDRESS OF FIRST USER PAR IN R1 
4452 035564 012704 000010 MOV #10,R ‘LOAD LOOP COUNTER WITH AN 8 
4453 035570 012705 177777 MOV 4177777, R5 BUT EXPECTED PAR CONTEN TS IN RS 
4454 035574 021105 7$: CMP (R1),R5 “ARE ALL WRITEABLE BITS SET AS EXPECTED? 

4455 035576 0014 BEQ 8$ “BRANCH IF YES 

4456 5600 020100 CMP R1,RO “WAS IT THE REG. THAT WAS CLEARED? 

4457 035602 001402 BEQ 8$ “BRANCH IF YES 

4458 035604 011102 MOV (R1),R2 >SAVE CONTENTS OF IMPROPERLY CLEARED REGISTER 
4459 035606 104016 ERROR 16 “A PAR WAS EFFECTED BY CLEARING A DIFFERENT PAR/PDR 
4460 :FOR TIGHTER SCOPE LOOP 

4461 :REPLACE ERROR CALL WITH 

4462 TAN "RTS PC'' = 000207 

4463 ©35610 062701 0C0002 8$: ADD #2,R1 :FORM NEXT ADDRESS 

4464 035614 077411 SOB R4,7$ -LOOP TO 7$ UNTIL ALL USER PAR’S CHECKED 
shee 035616 000207 RTS PC >RETURN TO TEST 

4467 .SBTTL CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 

4468 SL RAR RARER EAA EERE ERREEKEREKEARREEEEREREREEEREEEEERR ARES 

4469 3s 

4470 :* THIS SUBROUTINE IS USED TO FORM AN 18-BIT OR 22-BIT PHYSICAL ADDRESS 
6471 :* (PBA) FROM THE 16-BIT VIRTUAL ADDRESS (VBA) AND THE APPROPRIATE 

4472 :* PAGE ADDRESS REGISTER (PAR). THE SAME METHOD USED BY THE MEMORY 
4473 :* GEMENT LOGIC IS USED. VBA <15:13> SELECTS WHICH PAR/ 

4474 7 IS TO BE USED, VBA <S:0>+PBA <5:0>, AND VBA <12:6> IS ADDED 

4475 :* AR <15:00> TO GIVE PBA <21:6>. BITS <21: 16> OF THE 

4476 :* PHYSICAL ADDRESS ARE LEFT IN LOC. ‘PBAHI'' AND BITS <15:00> 

4477 :* ARE LEFT IN LOC. ‘PBALO’’. THE PSW'S ‘‘CURRENT MODE’ BITS 

4478 :* ARE USED TO SELECT THE KERNEL OR USER PAR/PDR'S. THE ROUTINE 
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035722 
035726 
03 


035756 


001003 
042737 
012602 
012600 
000207 


CJKDADO KTF11=AA MMU DIAG 
19=DEC-80 11:05 


172340 
140000 


000006 
000077 
001312 
001314 
000020 


000074 
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177776 


172516 
001314 


& 

* 
** 
. 

© 


FORMPA: 


1$: 


2$: 


‘. 
14-JAN-81 11:36 PAGE 88 
CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 


IS ENTERED WITH LOC. 
ADDRESS. 


"VIRT1"' CONTAINING THE 16-BIT VIRTUAL 


IF 18=-BIT ADDRESSING 43, SELECTED IN SR3, THEN 
PBA<21:18> ARE CLEARED IN ‘PBAHI'' 


. 
SERRE EERE EERE EERE EERE ARETE EERE ETE 


RO,-(SP) 
R2,-(SP) 
#KiPARO,R2 
= 


AUIPARO,R2 
VIR 


T1,RO 
#-14,RO0 
#177761,RO 
RO,R2 
(Re) RO 
VIRT1,PBALO 
#160000, PBALO 
#77700. R2 


WP RO 
RO,PBALO 


R2,PBAHI 
#B1T4,SR3 
2$ 

#74 ,PBAH] 


(SP)+,R2 
(SP)+,RO 
PC 


¢¢PUSH RO ON tie 
PUSH R2 ON STACK 
: LOAD ADDRESS OF FIRST KERNEL PAR IN R2 
;IN USER MODE? 


;BRANCH IF NO 
;LOAD ADDRESS OF FIRST USER PAR IN R2 
‘L ADD NTO R 


“CLEAR OF F ALL BITS BUT BITS <5: 0> 

SHIFT PAR<9:0> TO <15:6> OF RO 

:CLEAR BITS <5:0> OF RO 

: IN EFFECT, ADD VBA<12:0> TO PAR<9:0> 

s (PAR<9:0> IN 4 'y <15:6> OF RO) 

= ADD ANY CARRY TO R2 

:PUT BITS <21: 16> OF PHYSICAL ADDR. IN PBAHI 
:SEE IF 18 OR 22-BIT ADDRESSING 

*BRANCH IF 22-BIT ADDRESSING 

:CLEAR BITS <5:2> 


3:POP STACK INTO R2 


:;POP STACK INTO RO 
;RETURN TO PROGRAM 


me ee 


SEQ 0088 


™ : 
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P11 19=DEC=80 11:05 INPUT ROUTINE SEQ 0089 





.SBTT_ TTY INPUT ROUTINE 


TOR RRRAARBABBAABRSERAAERALASESLERRRR RARER RRRRRRRRRARRRRRRA RRR SSDS SSS 


-ENABL LSB 


PTT TITITILILI LLL LLL LILLE iii es 

« &SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

=*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
= *WHEN OPERATING IN TTY FLAG MODE. 


022737 000176 001140 $CKSWR: CMP #SWREG, SWR 31S THE SOFT~SWR SELECTED? 
001114 BNE 15$ “BRANCH IF NO 
105777 143150 TSTB astkS 7 CHAR THERE ? 
00111 BPL 15$ -IF NO, DON'T WAIT AROUND 
117746 143144 MOVB  a@$TKB,-(SP) «SAVE THE CHAR 
042716 177600 BIC oe c??, (SP) ;: STRIP-OFF THE ASCII 
022726 000007 CMP #7, (SP)+ :21S IT A CONTROL G? 
001102 BNE 15$ *=NO, RETURN TO USER 
123727 001134 000001 CMPB = $AUTOB,#1 * ARE WE RUNNING IN AUTO-MODE? 
001476 BEQ 15$ «BRANCH IF YES 
104401 036722 TYPE ,SCNTLG ::ECHO THE CONTROL-G (*G) 
104401 036727 $GTSWR: TYPE . $MSWR =: TYPE CURRENT CONTENTS| 
013746 000176 MOV SWREG, - (SP) =:SAVE SWREG FOR TYPEOU 
104402 TYPOC *:GO TYPE=-OCTAL ASCIITALL DIGITS) 
104401 036740 TYPE . SMNEW *:PROMPT FOR NEW SWR 
5046 19$: CLR -(SP) 7 CLEAR COUNTER 
005046 CLR -(SP) THE NEW SWR 
105777 143066 7$: TSTB = aSTKS *=CHAR THERE? 
100375 BPL 7$ :: IF NOT TRY AGAIN 
117746 143062 MOVB  a$TKB,-(SP) ::PICK UP CHAR 
042716 177600 BIC ac i??, (SP) **MAKE IT 7-BIT ASCII 
021627 000003 CMP (SP) #3 iis IT A CONTROL-C? 
001015 BNE 9$ CH IF NOT 
104401 036710 TYPE SSCNTLC “YES, ECHG CONTROL-C (“C) 
062706 000006 ADD #6,SP CLEAN UP STACK 
123727 001135 CMPB = $INTAG, #1 REENABLE TTY KEYBOARD INTERRUPTS? 
0 001003 BNE 8$ BRANCH IF NO 
0 012777 000100 MOV #100. a$TKS ::ALLOW TTY KEYBOARD INTERRUPTS 
0 000137 036752 8$: JMP CNTRLC =:CONTROL-C RESTART 
036130 021627 000025 9$: CMP (SP) #25 :31S 11 A CONTROL-U? 
036134 001005 BNE 10$ “BRANCH IF NOT 
036136 104401 036715 TYPE S$CNTLU 33 YES, ECHO CONTROL-U (“U) 
036142 062706 000006 20$: ADD #6, SP : IGNORE PREVIOUS INPUT 
036146 0007.7 BR 19$ **LET'S TRY IT AGAIN 
036 021627 000015 10$: CMP (SP) #15 s31S IT A <CR>? 
036 001022 BNE 16$ 33 CH IF NO 
036 005766 000004 TST 4(SP) =:YES, IS IT THE FIRST CHAR? 
036 001403 BEQ 11$ :BRANCH IF YES 
036 016677 000002 MOV 2(SP) ,aSWR =: SAVE NEW SWR 


Re em 


' — - ~——_ - oe ee ee a ee oe ee... ee a 


| mM 7 
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CJKDAD.P11 19-DEC-BO AP 05 INPUT ROUT INE SEQ 0090 
| 6573 036172 062706 000006 11$: ADD #6,SP ::CLEAR UP STACK 
| 4574 036176 104401 0601223 148: TYPE $CRLF **ECHO <CR> AND <LF> 
36202 123727 001135 000001 CMPB = $INTAG, #1 *: RE-ENABLE TTY KBD INTERRUPTS? 
001003 BNE 15 tt CH IF 
012777 000100 142724 MOV #100, a$TKS ; =RE=ENABLE TTY KBD INTERRUPTS 
000002 15$: RT] * = RETURN 
004737 037314 16$: JSR PC .STYPEC *:ECHO CHAR 
021627 000060 CMP (SP) , #60 = =CHAR < 0? 
002420 BLT 18$ : BRANCH IF YES 
021627 000067 CMP (S?) , #67 *=CHAR > 7? 
1 BGT 18$ : :BRANCH IF YES 
042726 000060 BIC #60, (SP)+ = :STRIP=OFF ASCII 
005766 000002 TST 2(SP) i1S THIS THE FIRST CHAR 
001403 BEQ 17$ “BRANCH IF YES 
16 ASL (SP) ;3NO, SHIFT PRESENT 
006316 ASL (SP) >: CHAR OVER TO MAKE 
006316 ASL (SP) >: ROOM FOR NEW 
005266 000002 17$: INC 2(SP) “KEEP COUNT OF CHAR 
056616 177776 BIS -2(SP), (SP) SET IN NEW CHAR 
000667 BR *:GET THE NEXT ONE 
104401 001222 18$: TYPE ,$QUES * TYPE 2<CR><LF> 
000720 BR 20$ *:SIMULATE CONTROL-U 
.DSABL LSB 
5 LRA ERR KEE REREKEEREERREEREEAREERERARERRREREA ERE 
:STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
** S 
i* RDCHR ¢ INPUT A SINGLE ey be FROM THE TTY 
;* RETURN HERE =CHARACTER IS ON THE STA 
- > WITH PARITY BIT STRIPPED OF F 
011646 SRDCHR: MOV (SP) ,-(SP) :PUSH DOWN THE PC 
016666 000004 000002 MOV 4(SP),2(SP) «SAVE THE PS 
105777 142626 1$: TSTB = a$TKS >:WAIT FOR 
100375 BPL :;A CHARACTER 
117766 142622 000004 MOVB  a@$TKB,4(SP) >:READ THE TTY 
042766 177600 000004 BIC #°C<177>,4(SP) ;3GET RID OF JUNK IF ANY 
026627 000004 000023 CMP 4(SP) ,#23 “IS IT A CONTROL-S? 
001013 BNE 5 *:BRANCH IF NO 
105777 142574 2$: TSTRB ~=s-_ BS TKS ;;WAIT FOR A CHARACTER 
100375 BPL 2$ “LOOP UNTIL ITS THERE 
117746 142570 MOVB  a$TKB,-(SP) ==GET CHARACTER 
042716 177600 BIC #*°C177, (SP) “:MAKE IT 7-BIT ASCII 
022627 000021 CMP (SP)+,#21 *:1S IT A CONTROL-Q? 
001 366 BNE 2$ :31F NOT DISCARD IT 
000750 BR 1$ RESUME 
026627 000004 000140 38: CMP 4(SP) ,#140 2315 iT UPPER CASE? 
002407 BLT “BRANCH IF YES 
026627 000004 000175 CMP 4(SP) #175 *:1S IT A SPECIAL CHAR? 
003003 | BGT 4$ ;;BRANCH IF YES 
042766 000040 000004 BIC #40,4 (SP) “MAKE IT UPPER CASE 
000002 4$: RTI **GO BACK TO USER 


SL RIK RRR REREREE REAR REREREERER ERA RER ERR ERE RRR RRA R A ESS 


7*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
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INPUT ROUTINE 


CJUKDADO KTF11=-AA MMU 
CJKDAD P11 


DIAG 
19=DEC=-80 11:05 SEQ 0091 





012603 


036700 
036710 


000003 
036710 


036752 
00017” 


000134 
036676 
177777 
036700 


036676 
036676 


000134 
036676 


000025 
036715 
000022 
001223 
036700 
001222 
036676 
036676 
000015 


177777 
001224 


036676 


036676 


:*CALL: 
-* 


*“*® 
. 
** 


SRDLIN: 


1$: 
2$: 


10$: 


6$: 


5$: 


7$: 


8$: 


4$: 
3$: 


RDLIN 
RETURN HERE 


R3,-(SP) 
-(§P) 
#$TTYIN,R3 


#STTYINGS. ,R3 
4$ 


(SP) +, (R3) 
#3, (R3) 
10 


HIT? (R3) 
$ 
(SP) 
6$ 
#'\ ,9$ 
#-1, (SP) 
R3 
R3,ASTTYIN 
4$ 
(R3) ,9$ 
9$ 


ra 


(SP) 
7$ 
#'\,9$ 


(SP) 
eae 
, SCNTLU 
#22, (R35) 
3$ 

(R3) 
/SCRLF 
STTYIN 
»$QUES 
(R3) 98 
15. (R3)¢ 
-1(R3) 
$LF 
(SP) + 
(SP)+,R3 


; INPUT A STRING FROM THE TTY 
: PADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 


32 TERMINATOR WILL BE A BYTE OF ALL O°S 


s SAVE R3 
:;CLEAR THE RUBOUT KEY 
GET ADDRESS 
eh ee * a 
::GO READ ONE CHARACTER FROM THE TTY 
::GET CHARACTER 
e215 IT A CONTROL-C? 
CH IF NO 


ii TYPE A CONTROL-C (“*C) 
;CLEAN RUBOUT KEY OFF OF THE STACK 
: RESTORE R3 
+ 2GOTO oer oF RESTART 
IT A _RUBOUT 


<BR IF NO 
21S THIS THE FIRST RUBGUT? 
*: TYPE A BACK SLASH 


7z;SET THE RUBOUT KEY 
; sBACKUP BY ONE 
azine EMPTY? 


IF YES 
ae ee” TYPEOUT THE DELETED CHAR. 


G0 READ ANOTHER CHAR. 
Te SET? 


I 
::TYPE A BACK SLASH 


7;CLEAR THE RUBOUT KEY 
3318S CHARACTER A CTRL U? 


;:BR_IF NO 
7: TYPE A CONTROL ‘U'' 


NO 
:3CLEAR THE aHARACTER 
YPE A ‘'CR'' & “LF 
SUTYPE THE INPUT STRING 
i360 PICKUP ANOTHER CHACTER 


SE CLEAR THE hl AND LOOP 
;zECHO THE CHARACTER 


; 3 CHECK FOR RETURN 


EED 
s€t RUBOUT KEY FROM THE STACK 
‘RESTORE R53 


LT a mm mm me - - 


ae Geew ~2- ee —- = -—-- - oe ——— = - Se ee ee — —— 
— - o-- - 
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CJKDAD.P11 19=DEC-80 11:05 TTY INPUT ROUTINE SEQ 0092 
MOV (SP) ,=-(SP) :;ADJUST THE STACK AND PUT ADDRESS OF THE 
G00004 000002 MOV 4(SP) ,2(SP) $3 FIRST ASCII CHARACTER ON IT 
036700 000004 MOV M$STTYIN,4C(SP) 
RTI : sRETURN 
9$: BYTE QO :; STORAGE FOR ASCII CHAR. TO TYPE 
-BYTE O :; TERMINATOR 
STTYIN: .BLKB 8. : sRESERVE 8 BYTES FOR TTY INPUT 
005015 000 $CNTILC: .ASCIZ /*C/<15><12> ::CONTROL ‘‘C’' 
§25 000012 S$CNTLU: .ASCIZ /*U/<15><12> : CONTROL ‘U"' 
005015 000 $CNTLG: .ASCIZ /*G/<15><12> :: CONTROL ‘'G’' 
Eee SF 051127 $MSWR: .ASCIZ <15><12>/SWR = / 
042516 020127 S$MNEW: .ASCIZ / NEW = / 
000 
-EVEN 
-SBTTL CONTROL-C SERVICING ROUTINE 
3* THE FOLLOWING CODE IS EXECUTED WHEN A CONTROL=-C HAS 


ie BEEN TYPED INSTEAD OF A NEW SWITCH REG. VALUE. 
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CONTROL-C SERVICING ROUTINE 


CJKDADO a MMU DIAG 
CJKDAD.P11 19=DEC-80 11:05 





;* (IN OTHER WORDS, AFTER A CONTROL-G WAS TYPED). 
:* A NEW SWITCH REG. VALUE WILL BE ASKED 4 
:* THE TEST NUMBER AND PASS NUMBER WILL BE TYPED, 
:* AND THEN THE PROGRAM WILL GO TO “'END~OF -PASS'’ AND CONTINUE 
036752 013737 001234 001210 CNTRLC: MOV SPASS,STMP5 ‘oa. THE ot m1 *SPASS'' 
036760 005237 001210 INC $STMPS >FORM CURRENT PASS NO. 
036764 104401 037031 TYPE ,CMSG *TYPE THE TEST STOPS MESSAGE 
036770 113737 001102 037024 MOVB $STSTNM,1$ “SAVE THE TEST NUMBER 
036776 013746 037024 MOV 1$,-(SP) +: SAVE 1$ FOR TYPEOUT 
037002 1064402 TYPOC ::GO TYPE=--OCTAL ASCIICALL DIGITS) 
37004 104401 037026 TYPE os : TYPE 2 SPACES 
037010 013746 901210 V STMP5S ,~(SP) : : SAVE SIMS; FOR TYPEOUT 
037014 10440 TYPDS 3;GO TYPE=-DECIMAL ASCII WITH SIGN 
037016 104407 GTSWR :ASK FOR NEW SWR VALUE 
037020 000137 033764 JMP SEOP+2 =CONTINUE AT $EOP+2 
037024 1$: -WORD 0 :BUFFER FOR TEST NUMBER 
037026 020040 0 2$: eASCIZ / :TWO SPACES AND THE STOP MESSAGE 
037031 112 046525 044520 CMSG: ASCII 4 JUMPING TO END-OF -PASS/<15><12> 
037036 043516 052040 020117 
037044 047105 026504 043117 
Se ones oars 051501 0065 
037061 124 051505 047124 -ASCIZ /TESTNO PASSNO/<15><12> 
037066 020117 050040 051507 
037074 047123 006517 000012 pues 
.SBTTL TYPE ROUTINE 
SERRE AERERREREREREREKREREREAREEREREREREREEERERERERRER ERED 
* SROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
**THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
:*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
: *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
= *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
*CALL 
iD) USING A TRAP INSTRUCTION 
a TYPE »MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
fz 
** TYPE 
:* MESADR 
** 
037102 105737 001157 $TYPE: TSTB STPFLG 2215 i A TERMINAL? 
037106 100002 BPL 1$ F YES 
037110 000000 HALT ; HALT HERE IF NO TERMINAL 
037112 30 BR 3$ sé VE 
037114 010046 1$: MOV RO,-(SP) :SAVE RO 
037116 017600 000002 MOV a2(SP),RO 3GE! ADDRESS OF ASCIZ STRING 
037122 122737 000001 001246 CMPB HAPTENV, SENV : ;RUNNING IN APT 
371 001011 BNE 62$ ::NO,GO CHECK FOR APT CONSOLE 
037132 132737 000100 001247 BITB HAPTSPOOL , SENVM : = SPOOL MESSAGE TO APT 
037140 1405 BEQ 62$ Ses fy CHECK FOR CONSOLE 
037142 010037 037152 MOV RO,61% :>:SETUP MESSAGE ADDRESS FOR APT 
037146 004737 037444 JSR PC,SATY3 :;SPOOL MESSAGE TO APT 
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| CJKDADO KTF11=AA MMU DIAG MACY11 30A(1052) 14-JAN-81 
CJKDAD.P11 19=DEC-80 11:05 YPE ROUTINE SEQ 0094 

4761 037152 900000 61$: .WORD 0 ; MESSAGE ADDRESS 
4762 037154 132737 000040 001247 62$: BITB § #APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
4763 037162 001003 BNE ;3YES,SKIP TYPE OUT 
4764 037164 112046 2$: MOVB (RO) +,=(SP) 33 PUSH CHARACTER TO BE TYPED ONTO STACK 
4765 037166 001005 BNE 4$ “BR IF IT ISN'T THE TERMINAT 
4766 037170 005726 TST (SP) + +: IF TERMINATOR POP IT OFF THE STACK 
4767 037172 O12 60$: MOV (SP)+,RO -;RESTORE RO 
4768 037174 062716 000002 3$: ADD #2, (SP) ; ADJUST RETURN PC 
4769 037 RTI : RETURN 
4770 037202 122716 000011 4$: CMPB  ~—s #H7,, (SP) * :BRANCH IF <HT> 
4771 037206 001430 BEQ 8$ 
4778 037210 122716 000200 CMPB —s ACRLF, (SP) : ;BRANCH IF NOT <CRLF> 
4773 037214 001 BNE $ 
4774 037216 005726 TST (SP) + ::;POP <CR><LF> eoviy 
4775 037220 104401 TYPE >: TYPE A CR AND L 
4776 037222 001223 SCRLF 
4777 037224 105037 037432 CLRB = $CHARCNT ::CLEAR CHARACTER COUNT 
4778 037230 000755 BR 2$ >:GET NEXT CHARACTER 
4779 037232 004737 037314 5$: JSR PC ,$TYPEC *:GO TYPE THIS CHARACTER 
4780 037236 123726 001156 é$: CMPB = SF ILL, (SP)+ *:1S IT TIME FOR FILLER CHARS.? 
4781 037242 001350 BNE 2 -:IF NO GO GET NEXT CHAR. 
4782 037244 013746 001154 MOV $NULL ,- (SP) :3GET # OF FILLER CHARS. NEEDED 
4783 sAND THE NULL CHAR. 
4784 037250 105366 000001 7$: DECB ~—_:« 1 SP) ; DOES A NULL NEED TO BE TYPED? 
4785 037254 002770 BLT 6$ :BR IF NO~-GO POP THE NULL OFF OF STACK 
4786 037256 004737 037314 JSR PC .$TYPEC 7360 TYPE A 
4787 037262 105357 037432 DECB §$CHARCNT :DO NOT COUNT As A COUNT 
pee 37266 000770 :: 
4790 :HORIZONTAL TAB PROCESSOR 
4792 037270 112716 000040 8$: MOVB , (SP) ::REPLACE TAB WITH SPACE 
4793 037274 737 037314 9$: JSR mC. $TYPEC -:TYPE A SPACE 
4794 037300 132737 000007 037432 BITB #7.$CHARCNT * =BRANCH IF NOT AT 
4795 037 001372 BNE =: TAB STOP 
4796 037310 005726 TST (SP) + ;3POP SPACE OFF STACK 
4797 037312 000724 BR 2$ *:GET NEXT CHARACTER 
4798 037314 $TYPEC: 
4799 037314 105777 141624 TSTB  =—s_ ASTKS 3; CHAR. IN KYBD BUFFER? =MJD001 
4800 037320 100022 BPL 10$ 33 F NOT :MJD001 
4801 037322 017746 141620 MOV a$TkKB =GET CHAR :MJDO01 
4802 037326 042716 177600 BIC are tSP) :;STRIP EXTRANEOUS BITS >MJDOO1 
4803 037332 122716 000023 C #SXOFF , (SP) 33 CHAR XOFF =MJDOO1 
4804 037336 001012 DE 102$ >:BR IF NOT =MJDOO1 
4805 037340 101$: >MJDO001 
4806 037340 105777 141600 TSTB = aSTKS ::WAIT FOR CHAR :MJD001 
4807 037344 100375 BPL 1 :MJD001 
4808 037346 117716 141574 MO a$TKB, (SP) ::GET =MJDOO1 
4809 037352 042716 177600 BIC #177600, (SP) *:STRIP IT =MJDOO1 
4810 037356 122716 000021 CMPB = ASXON, (SP) ::WAS IT XON? =MJDO01 
4811 037362 1366 BNE :;BR IF NOT :MJDO001 
4812 037364 1028: :MJD001 
4813 037364 005726 TST (SP) + ::FIX STACK =MJDO01 
4814 037366 10$: : 1 
4815 037366 105777 141556 TSTB = a$tTPs ::WAIT UNTIL PRINTER IS READY 
4816 037372 100375 BPL 10$ :MJD001 


cere tsetse cst 7 


CJKDADO KTF11-AA MMU 
19=DEC-80 11:05 


ee ee 
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037374 


737 
737 


2737 


mn 
* 
oO 


105037 


DIAG 


000002 
000015 
037432 
000012 


000001 
000001 
000001 


037700 
000001 
000100 
000004 
000002 
001226 
001242 
001242 
901244 
000004 
000004 
000002 
177776 
037102 
037702 
001246 


037701 


MACY11 30A(1052) 
TYPE ROUTI 


141550 
000002 


000002 


037702 
037700 


037702 


001246 
001247 


000004 


001226 


037612 
000004 


001230 
000004 


1$: 


INCB 
SCHARCNT : . WORD 


14-JAN-81 
NE 
MOVB 2(SP) ,aSTPB 
CMPB A#CR,2(SP) 
BNE $ 
CLRB SCHARCNT 
BR STYPEX 
C ALF, ali 
BEQ $TYP 
NC (POS 
0 
PC 


STYPEX: RTS 
.SBTTL APT COMMUNICATIONS ROUTINE 


{ RRRAARARAREERAEAEKEAEEERAERAEAARERAREAARAAAAEAEKEEHRRAAAERARRAREARARE AHS 


1$: 


2$: 


3$: 


$: 
0$: 


—W 
wf 


11$: 


12$: 


MOVB 
VB 


#1,$FFLG 
#1, $MFLG 


SAT YC 
#1,$FFLG 
RO,-(SP) 
R1,-(SP) 

SMF LG 

5$ 

#APTENV, SENV 
#APTSPOOL , SENVM 
a4(SP),RO 
#2,4(SP) 
galt 

RO, S$MSGAD 
(RO) + 

2$ 

~ alana 


R 
RO, SMSGLGT 
#4 , SMSGTYPE 


a4 (SP) .4$ 
#2.4(SP) 
177776, ~(SP) 
0 

SFFLG 

12$ 

SENV 

12$ 
$MSGTYPE 


04 (SP) ,SFATAL 
SP) 


$LFLG 
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3;LOAD CHAR TO BE TYPED INTO DATA REG. 


ar Senge A CARRIAGE RETURN? 


Is CHARACTER A LINE FEED? 
;BRANCH IF YES 

::COUNT THE CHARACTER 

3- CHARACTER COUNT STORAGE 


33TO REPORT FATAL ERROR 
33TO TYPE A MESSAGE 


3:TO ONLY REPORT FATAL ERROR 


3zPUSH RO ON STACK 
;=PUSH R1 ON STACK 
ah ee TYPE A MESSAGE? 
:IF NOT: BR 
: OPERATING UNDER APT? 
NOT: BR 


; 3 SHOULD SPOOL MESSAGES? 
NOT: BR 
GET MESSAGE ADDR. 
; ;BUMP RETURN ADDR. 
Bite DONE W/ LAST XMISSION? 
DR IN MAILBOX 
FIND END OF MESSAGE 


+3 SUB START OF MESSAGE 
ot MESSAGE LNGTH IN WORDS 

T LENGTH IN MAILBOX 

TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

2 PUSH 199776 ON STACK 

=:CALL TYPE MACRO 


et: REPORT FATAL ERROR? 
: RUNNING UNDER APT? 

:IF NOT: BR 
: FINISHED LAST MESSAGE? 

NOT: WAIT 
GET ERROR a 
;BUMP RETURN ADDR. 

7 TELL abi TO TAKE ERROR 


SICLEAR FATAL FLAG 
;;CLEAR LOG FLAG 





ere ee ee ee 


SEQ 0095 


~-- — eee ae ee — ee —o-=— — eee ee eee ee ee 
— - - —— - - 
- — ee eee eae ee ee ee ae 


F 8 
PAGE 96 


| CJKDADO KTF11-AA MMU DIAG MACY11 sO ee 14-JAN-81 11:36 
| CJKDAD.P11 19=DEC-80 11:05 COMMUNICATIONS ROUTINE SEQ 0096 
37 105037 037700 CLRB SMFLG ¢ CLEAR MESSAGE FLAG 
037672 012601 MOV (SP)+,R1 POP STACK INTO R1 
037674 0612600 MOV (SP)+,RO ; POP STACK INTO RO 
037676 000207 TS PC URN 
937700 000 SMFLG: .BYTE ; sMESSG. FLAG 
037791 000 $LFLG: .BYTE OQ ;LOG FLAG 
037702 000 SFFLG: yt 0 + = FATAL FLAG 
037704 
000200 APTSIZE= 350. 
0 APTENV=001 
000100 APTSPOOL=100 
APTCSUP=040 
.SBTTL BINARY TO ASCII AND TYPE ROUTINE 
SAREE EAEERERAEAAARERAAARAAAEARRAEEEKARARERRR ARRAS 
“STHIS ROUTINE IS USED TO CHANGE % 16-BIT BINARY NUMBER TO A 16-BIT 
3 SBINARY“ASCII NUMBER AND TYPE IT 
** 
* MOV NUMBER, - (SP) : ;NUMBER TO BE TYPED 
s* TYPBN :; TYPE IT 
037704 010146 $TYPBN: MOV R1,~(SP) ho R1 ON THE STACK 
0377 016601 000006 MOV 6(SP) ,R1 :;GET THE INPUT NUMBER 
037712 000261 SEC ::SET ''C’’ SO CAN KEEP TRACK OF THE NUMBER OF BITS 
037714 112737 000060 037756 1$: MOVB #'O,SBIN ::SET CHARACTER TO AN ASCII ‘0"’. 
037722 006101 ROL R1 + 3GET THIS BIT 
037724 001406 BEQ 2$ iD 
037726 105537 037756 ADCB $BIN 7 a CHARACTER EQUAL TO THIS BIT 
037732 104401 037756 TYPE ,SBIN bh TYPE THIS BIT 
037736 000241 CLC CLEAR ‘‘C’* SO ~ KEEP TRACK OF BITS 
037740 000765 BR i DO THE NEXT BIT 
037742 012601 2$: MOV (SP)+,R1 POP THE STACK INTO R1 
037744 01 000002 000004 MOV 2(SP) .4(SP)  TADJUST THE STACK 
037752 012616 MOV (SP)+, (SP) 
037754 00 RT] : sRETURN TO USER 
037756 000 : STORAGE FOR ASCII CHAR. AND TERMINATOR 





$BIN -BYTE 0,0 
“SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


FERRARA REERAKEEEEEEEREREREEERERAERERERRERARRERRAERERAERAR ERE 


“RTHIS ROUTINE IS USED Se ter ie A 16-BIT BINARY NUMBER TO A 6-DIGIT 


: *OCTAL (ASCII) NUMBER 


YPE IT 
*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


SeCALL: 

:* V NUM, - (SP) 
se TYPOS 

o* -BYTE WN 

3* BYTE ™ 

;* 

se 

7* 


7 :NUMBER 7) BE TYPED 


3;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


= *$TYPOS OR $TYPOC 

**CALL: 

* MOV NUM, = (SP) 
TYPON 


** 
° 
**® 
’ 





;NUMBER TO BE TYPED 
STCALL FOR TYPEQUT 


—_—_-— — 


—_—-—— mm er ae ee ee 


CJKDADO KTF11-AA MMU DIAG 
CJKDAD.P11 


> Heart te go rege 
SVYVS 
~ Ww 
> 
oO 


=—_d od 
~— 
iv 
™“~ 
R 


000 
900 


] 
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000000 
000001 
040205 
000002 
000001 
000096 
000005 


040205 


000006 
040204 
040203 
000012 


040204 
177770 


040200 
040200 
040202 


000002 000004 


_— ea ea a ieee ee ee 


MACY11 30A(1052) 


040203 


040203 
040205 
040202 


1$: 
2$: 


3$: 


4$: 
5$: 


7$: 


6$: 


8$: 


SOCNT: 
SOF ILL: 


14-JAN~81 


MOV 
TYPOC 


YTE 
-BYTE 


NUM, = (SP) 


@(SP) ,-(SP) 


1(SP) , SOF ILL 
gt aaa 


#2, 
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BINARY TO OCTAL (ASCII) AND TYPE 


Se HERE FOR TYPEOUT OF A 16 BIT NUMBER 


7 NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 


3zPICKUP THE MODE 

3;LOAD ZERO FILL SWITCH 

; NUMBER OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 


3zSET THE ZERO FILL SWITCH 
aa FOR SIX(6) DIGITS 
:SET _ ITERATION COUNT 


SESAVE R R5 
33GET THE NUMBER OF DIGITS TO TYPE 


;;SUBTRACT IT FOR MAX. ALLOWED 

7;SAVE IT FOR USE 

3;GET THE ZERO FILL SWITCH 

: PICKUP THE INPUT NUMBER 
:CLEAR THE OUTPUT WORD 

: TROTATE MSB INTO *'C*’ 


:GO DO MSB 
::FORM THIS DIGIT 


;:GET LSB OF fait DIGIT 
23 TYPE - DIGIT? 


SIGET RID OF JUNK 


IF YES 
ON*T SUPPRESS ANYMORE 0°S 
«MAKE THIS DIGIT ASCII 
::MAKE ASCII IF NOT ALREADY 
:: SAVE FOR TYPING 
::GO TYPE THIS DIGIT 
: s COUNT BY 1 

; sBR IF MORE TO DO 
: F DONE 
INSURE LAST DIGIT ISN'T A BLANK 
3;G0 DO ig ST DIGIT 


7 REST R3 
7zSET THE STACK FOR RETURNING 


; sRETURN 

FER re FOR ASCII DIGIT 
RMINATOR FOR TYPE ROUTINE 

S:OCTAL DIGIT COUNTER 

;;ZERO FILL SWITCH 


ene ee eet mee ee 


SEQ 0097 


-JKDAD P11 


eae ee ee ee 


012603 
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¢ 19=DEC-80 11:05 


040204 000000 


020200 
000020 


000055 


040422 
000040 


040412 


177777 


— nae eae — te eS —-—- = 


MACY11 yh cae 


000001 


177777 


177776 


14-JAN~81 
TO OCTAL (ASCII) AND TYPE 


eee ee 


11:36 


H 8 
PAGE 98 


ER OF DIGITS TO TYPE 


SOMODE: .WORD 0 > NUMB 
.SBITL CONVERT BINARY TO DECIMAL. AND TYPE ROUTINE 


ORES ERASZAAAAEASAEESALEALE LEAL EERE REE S ARERR RRR RRA RRR RA AR AAA A RS ASS | 


:STHIS ROUTINE IS USED TO ery A 16-BIT BINARY NUMBE 
AND TYPE IT. DEPENDING ON WHETHER THE 


>*SIGNED DECIMAL (ASCII) NUMBER 
> *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


*CALL: 


STYPDS: 


7$: 


8$: 


9$: 


MOV 
TYPDS 


:*REPLACED WITH SPACES. 


NUM, = (SP) 


RO,-(SP) 


R5,-(SP) 
#20200,-(SP) 
20(SP).R5 
R5 

#*=,1(SP) 
RO 


#$DBLK R3 
#’ ,(R3)+ 


Re 
te actly 


(SP) 


6 

(SP) + 

9$ 

-1(SP) ,-2(R3) 
(R35) 


(SP)+,R5 
(SP)+,R5 


R 10 A 5-DIGIT 


;PUT THE BINARY NUMBER ON THE STACK 
160 TO THE ROUTINE 


;3PUSH RO ON STACK 

;3PUSH R1 ON STACK 

;sPUSH R2 ON STACK 

;3PUSH R3 ON STACK 

3;PUSH R5 ON STACK 

+eSET BLANK is AND SIGN 
T NUMBER 


:¢BR IF INPUT IS POS 
sMAKE THE BINAR 

TZMAKE THE ASCII NUMBER NEG. 

3;ZERO THE CONSTANTS INDEX 

3;SETUP THE OUTPUT POINTER 

3z:SET THE FIRST CHARACTER TO A BLANK 

;;CLEAR THE BCD NUMBER 

3:GET THE CONSTANT 

i ga THIS BCD DIGIT 


BR IF DONE 
ZZ INCREASE THE BCD DIGIT BY 1 


;ADD BACK THE CONSTANT 
£3 CHECK IF BCD DIGIT=0 
THROUGH 


IF 
: STILL + LEADING 0°S? 


;BR IF NO 
TYES=-SET THE SIGN 
MAKE THE BCD DIGIT ASCII 
7:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
::PUT THIS CHARACTER IN THE OUTPUT BUFFER 


: : CHECK THE TABLE INDEX 
:GO DO THE NEXT DIGIT 
>: 60 TO EXIT 
ay THE . 
; 3 GO CHANGE T 


: POP STACK INTO R3 


ee em me - ° 


SEQ 0098 


LS CT TT A — — _— 
- ee ee ee meee el 


JKDADO KTF11-AA MMU a", ; 


JKDAD .P11 19=DEC-80 1 


MACY11 30A(1052) 
CONVE 


14-JAN-81 


eee ee te 


| 
11:36 PAGE 99 
ERT BINARY TO DECIMAL AND TYPE ROUTINE 


5041 0366 012602 MOV (SP) +,R2 ::POP STACK INTO R2 
$042 040370 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
5043 040372 O12 MOV (SP)+,RO ; POP STACK INTO RO 
040374 104401 040422 TYPE $DBLK _ s3NOW TYPE THE NUMBER 
040400 01 000002 000004 MOV 2(SP) ,4(SP)  SADJUST THE STACK 

5046 040406 012616 MOV (SP)+, (SP) 
5047 040410 RTI : RETURN TO USER 
50468 040412 023420 $DTBL: 10000 

9 040414 001750 1000. 
5050 040416 000144 100 
5051 040420 2 0. 
5052 040422 000004 $DBLK: .BLKW 4 
505 .SBTTL SAVE AND RESTORE RO=-RS ROUTINES 
5055 5 LE ARRAAAAAAAEAAAAAARARARAAEAAEAEAAAAAAAKRAERARARERARAREAARAARERRAEE RES 
5056 s*SAVE RO=R5 
5057 :*CALL: 
5058 :* SAVREG 
rs ; *UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
5061 ‘ eTOP=-=(+16) 
5062 s% +2---(+18) 
5063 s% +4=---R5 
5064 s® +6---R4 
5065 2% +8=---R3 
5066 3*+10---R2 
5067 3%*+12---R1 
5068 :%*+14---R0 
5069 
5070 040432 SSAVREG: 
5071 040432 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
5072 040434 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
5073 040436 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
5074 040440 34 MOV R3,-(SP) ::PUSH R3 ON STACK 
5075 040442 010446 MOV R4,-(SP) +:PUSH R4 ON STACK 
5076 040444 010546 MOV »7 (SP) ::PUSH RS ON STACK 
5077 040446 000022 MOV 22(SP) ,-(SP) :>:SAVE PS GF MAIN FLOW 
5078 040452 016646 000022 MOV 22(SP) ,-(SP) >: SAVE PC OF MAIN FLOW 
5079 040456 016646 000022 MOV 22(SP),- (SP) s:SAVE PS OF CALL 
5080 040462 016646 000022 MOV 22(SP),~(SP) >:SAVE PC OF CALL 
epee 040466 000002 RT] 
5083 = *RESTORE RO-R5 
5084 s*CALL: 
5085 :* RESREG 
5086 040470 SRESREG: 
5087 040470 012666 000022 MOV (SP)+,22(SP) : sRESTORE PC OF CALL 
5088 040474 012666 000022 MOV (SP) +,22(SP) RESTORE PS OF CALL 
5089 040500 012666 000022 MOV (SP)+,22(SP) : :RESTORE PC OF MAIN FLOW 
5090 040504 012666 000022 MOV (SP)+,22(SP) : :RESTORE PS OF MAIN FLOW 
5091 040510 012605 MOV (SP)+,R5 ::POP STACK INTO R5 
5092 040512 012 MOV (SP) +,R4 ::POP STACK INTO R4 
5093 040514 012603 MOV (SP)+,R3 $i STACK INTO R3 
5 040516 012602 MOV (SP)+,R2 ; «POP STACK INTO R2 
5095 040520 012601 MOV (SP)+,R1 :POP STACK INTO R1 
5096 040522 012600 MOV (SP)+.RO *:POP STACK INTO RO 


-— LLC LLG LEE ——— eee -— _————— a ae ae eee ees are aa ene awe eer ee eee iO eee —-- — — — 
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| ¢ CJKDADO KTF11-AA MMU DIAG MACY11 30A(1052) 14=-JAN-81 11:36 PAGE 100 


CJKDAD.P11 19=DEC-80 11:05 SAVE AND RESTORE RO-RS ROUTINES SEQ 0100 
5097 040524 000002 RTI 
3098 _SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
5100 PORE RARAAAAAAEZAEBLAAAABRAAAAAEAAEAARARESERARESERRRSR ERE REL RAR RASS SR S| 
5101 <STHIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
2102 : SUNS I GNED OCTAL ASCIZ NUMBER 
** 
5104 :* MOV #PNTR,-(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
5105 :* JSR PC, a#$DB20 *=CALL THE ROUTIN 
5106 o® RETURN <= THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
5108 
5109 040526 104413 $DB20: SAVREG ; SAVE ALL REGISTERS 
5110 040530 016601 000002 MOV 2(SP).R1 PICKUP THE POINTER TO LOW WORD 
5111 040534 012705 040645 MOV #SOCTVL+13.,R5 «POINTER TO DATA TABLE 
$112 040540 012704 000014 MOV #12. ,R4 ;3D0 ELEVEN CHARACTERS 
$113 040544 012703 177770 MOV #°C7_R3 
5114 040550 012100 MOV (R1)+,RO : TOWER WORD 
5115 040552 012101 MOV (R1)+.R1 -:HIGH WORD 
5116 040554 005002 CLR R2 : : TERMINATOR 
5117 040556 110245 1$: MOVB _R2,=(R5) *:PUT CHARACTER IN DATA TABLE 
5118 040560 010002 MOV RO,R2 *:GET THIS DIGIT 
5119 040562 005304 DEC >:COUNT THIS C 
5120 003007 BGT 3$ ::BR IF NOT THE LAST DIGIT 
5121 001405 BEQ 2$ -:BR IF IT IS THE LAST DIGIT 
$122 040570 005205 INC R5 7ALL DIGITS DONE~ADJUST POINTER FOR FIRST 
$123 040572 010566 000002 MOV R5,2(SP) *ASCIZ CHAR. & PUT IT ON THE STACK 
5124 040576 104414 RESREG « CRESTORE ALL REGISTERS 
5125 040600 000207 RTS PC *:RETURN TO USER 
5126 040602 006203 2$: ASR R3 *:POSITION THE MASK FOR THE LAST DIGIT 
5127 040604 006001 3$: ROR R1 *:POSITION THE BINARY NUMBER FOR 
5128 006 ROR RO i THE NEXT OCTAL DIGIT 
5129 040610 006001 ROR R1 
5130 040612 006 ROR RO 
5131 040614 006001 ROR R1 
5132 040616 006000 ROR RO 
5133 040620 040302 BIC R3,R2 : :MASK QUT ALL JUNK 
5134 040622 062702 000060 ADD #'0,R2 ;3MAKE THIS CHAR. ASCII 
5135 040626 000753 BR 1$ “GO PUT IT IN THE DATA TABLE 
5136 040630 000016. S$OCTVL: .BLKB 14. > :=RESERVE DATA TABLE 


erm mm see ea 


o— 


K 8 
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CJ 
CJKDAD P11 19=DEC-80 11:05 TRAP DECODER SEQ 0101 
rae 14 .SBTTL TRAP DECODER 
5139 sWeReRAeReAReReeAReeetAteeARAaeaKaaRaKaanenananenananeeeanees 
5140 <STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
5141 >*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
$142 + #OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
hg = *G0 TO THAT ROUTINE. 
5145 040646 010046 STRAP: MOV RO,-(SP) 7: SAVE RO 
5146 040650 016600 000002 MOV 2(S5P) ,RO + 2GET TRAP ADDRESS 
5147 040654 005740 TST -(RO) ;BACKUP BY 2 
5148 040656 111000 MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 
5149 040660 006300 ASL RO sPOSITION FOR INDEXING 
5150 040662 016000 040702 MOV $TRPAD(RO) ,RO +: INDEX TO TABLE 
2i23 040666 000200 RTS RO 3:GO TO ROUTINE 
5153 
2ize zz THIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 
5156 C40670 011646 $TRAP2: MOV (SP) ,~(SP) 3; MOVE La PC DOWN 
5157 040672 016666 000004 000002 MOV 4(SP) ,2¢SP) :zMOVE THE PSW DOWN 
ra 040700 000002 RTI ZZRESTORE THE PSW 
ry -SBTTL TRAP TABLE 
5162 :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
grey + *BY THE *‘TRAP** INSTRUCTION. 
ence ; ROUT INE 
5167 040702 040670 $TRPAD: .WORD $TRAP2 
5168 040704 037102 $TYPE 7: CALL=TYPE TRAP+1(194401) TTY TYPEOUT ROUTINE 
5169 040706 040004 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
5170 040710 037760 $TYPOS ;;CALL=TYPOS TRAP+3(104405) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
5171 040712 040020 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
5172 040714 040206 S$TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
a1o7 040716 037704 STYPBN ;;CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
2152 040720 036030 $GTSWR ;;CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 
5177 040722 035760 $CKSWR ;;CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR 
5178 040724 036302 SRDCHR +s CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
5179 040726 036422 SRDLIN ;;CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
5180 040730 040432 $SSAVREG *:CALL= SAVREG TRAP+13(104413) SAVE RO-RS ROUTINE 
5181 040732 040470 SRESREG ::CALL=RESREG TRAP+14(104414) RESTORE RO-R5 ROUTINE 
2186 .SBTTL POWER DOWN AND UP ROUTINES 
5184 SRR ERR ER EERE ER EERE E EERE RARER EER 
5185 POWER DOWN ROUTINE 
5186 040734 012737 041112 000024 ipower MOV #SILLUP,@#PWRVEC ;;SET FOR FAST UP 
5187 040742 012737 000340 000026 MOV #340, QAPWRVEC+2 ;:PRIO:7 
5188 040750 010046 MOV RO, -(SP) 3 PUSH RO ON STACK 
5189 040752 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
5190 040754 010246 MOV R2,~(SP) :;PUSH R2 ON STACK 
5191 040756 010346 MOV R3,-(SP) :;PUSH R3 ON STACK 
5192 040760 010446 MOV R4,-(SP) ::PUSH R4& ON STACK 








| 


————— 


mm ee mm ee eee ee 


CJKDADO KTF11=-AA MMU D 


CJKDAD. PIT 
5193 040762 
5194 040764 
5195 040770 
5196 040774 
5197 1002 
5198 041004 
5199 

5200 

5201 

§202 041006 
5203 041014 
5205 041020 
5205 041024 
5206 041030 
5207 041032 
5208 041036 
5209 041040 
5210 041042 
S211 041044 
5212 041046 
5213 041050 
5214 041052 
5215 041060 
$216 041066 
5217 041070 
5218 041072 
5219 041074 
5220 041076 
5221 041104 
5222 041110 
§223 041112 
5224 041114 
5225 041116 
5226 041120 
5227 041126 
5228 041134 
5229 041142 
5230 041150 
5231 041156 
5232 

5233 


010546 


041162 


19-DEC~80 Th: 05 


040734 
000340 


000020 
034276 


MACY11 30A(1052) 
POWER 


000024 


000024 


000024 
000026 


000002 


053517 


020107 


- ne —-<2- = +e 


14-JAN-81 
DOWN AND UP ROUT! 


8 
i BE * pace 102 


R5,~(SP) 37PUSH R5 ON STACK 
@SWR,- (SP) 


; ;PUSH @SWR ON STACK 
SP, $SAVR6 ; SA VE SP 
RSPWRUP, aAPWRVEC :;SET UP VECTOR 
72 7 HANG UP 


PARAL ERAZAAAAAAARAREARAASLASERSEALRR ARERR RRR A RARARRRARRRARARAR SDSS SS 


1$: 


SPWRMG: 
SPWRAD : 


SILLUP: 


$SAVR6: 0 
PWRMSG: 


POWER UP ROUTINE 
$PWRUP : 


EVEN 


ASILLUP,@#PWRVEC ;;SET FOR FAST DOWN 
SSAVRO, SP ::GET SP 


$SAV Hef LOOP FOR THE TTY 
$SAVR6 :zWAIT FOR THE INC 

1$ 33 WORD 

(SP) +, aSWR 3zPOP STACK INTO @SWR 
(SP)+,R5 ;POP STACK INTO R5 
(SP) +,R4 ;sPOP STACK INTO R4 
(SP)+,R3 3 STACK INTO R3 
(SP)+,R2 :;POP STACK INTO R2 
(SP)+,R1 ;;POP STACK INTO R1 
(SP)+,R TACK 


RO $3 Ss INTO RO 
#$PWRDN, @APWRVEC igSET UP THE POWER DOWN VECTOR 
#340, a#PWRVEC +2 es PRIO:7 
REPORT THE POWER FAILURE 


PWRMSG 7:POWER FAIL aera POINTER 
tent (SP) : TRESTART AT RESTR 
RESTR sRESTART ADDRESS 
oe 2(SP) ZZCLEAR ‘'T’ BIT 
7;CLEAR THE ‘'T’’ BIT FLAG 
+3 THE POWER UP er gees WAS STARTED 
a ee oT Yok THE — OWN WAS COMPLETE 


HE SP H 


Pur oY RE 
“ASCIZ <12><15>? POWER FAILURE - RESTARTING ?<12><15> 


SEQ 0102 





r 


| 


ee ee ee ee - —- ee” 


CJKDADO KTF11=AA MMU DIAG 


CJKDAD.P11 

5235 

$236 041162 
$237 041170 
5238 041176 
5239 041204 
$240 041212 
5241 041220 
$242 041222 
5243 041230 
$244 041236 
5245 041244 
5246 041252 
5247 041260 
5248 041266 
5249 041271 
$250 041276 
5251 041304 
5252 041312 
5253 041320 
5254 041326 
5255 041330 
5256 041336 
5257 041344 
5258 041352 
$259 041360 
5260 041363 
5261 041370 
5262 041376 
5263 041404 
5264 041412 
5265 041420 
5266 041426 
5267 041434 
5268 041436 
5269 041444 
5270 041452 
5271 041460 
5272 041466 
5273 041474 
5274 041502 
5275 041503 
5276 041510 
5277 041516 
5278 041524 
5279 041532 
5280 041540 
5281 041541 
5282 041546 
5283 041554 
5284 041562 
$285 041570 
5286 041576 
5287 041604 
5288 041605 
5289 041612 
5290 041620 


047125 


19=DEC-80 11:05 


054105 
042105 


047522 
020116 


042504 


0 
047440 
046525 


052517 


046505 
052115 
027107 


MACY11 * 


042520 
041440 
040522 
046040 
030060 


042520 
046440 


031040 
051117 


051520 
041040 


050040 
020114 


051520 
046105 


052125 
040515 


051524 


020056 
020056 
053440 


-SBTTL 
EM1: 


EM2: 


EM3: 


EMG: 


EMS: 


EM6: 


EM7: 


EM10: 


EM11: 


ee ee ee ee ae ee ee ee Ce 
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RROR MESSAGES, DATA HEADERS=-TABLES & FORMATS 


ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS 


ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


eASCIZ 


ASCIZ 


-ASCIZ 


ASCIZ 


ASCIZ 


/UNEXPECTED CPU TRAP TO LOC. 904/ 


/UNEXPECTED MEM. MGMT. TRAP TO LOC. 250/ 


/PRIORITY BITS SET WRONG IN PSW/ 


/MODE BITS SET WRONG IN PSW/ 


/DUAL ADDRESSING BETWEEN HI&LO BYTES OF PSW/ 


/KERNEL R6 CHANGED BY WRITING USER R6/ 


/A MEMORY MGMT. REG. TIMED OUT/ 


/SUMMARY OF MEM. MGMT. REG. TIMEOUTS/ 


/MEM. MGMT. REG. WOULD NOT CLEAR/ 


SEQ 0105 


ae —— - es 
' es ~ ee re re. mt mm a mm a ee a ste -_—— 


N 8 
CJKDADO KTF11-AA MMU DIAG MACY11 30A(1052) 14=-JAN-81 11:36 PAGE 104 
CJKDAD P11 19=DEC-80 11:05 ERROR MESSAGES, DATA HEADERS=-TABLES & FORMATS SEQ 0104 


5291 041626 052517 042114 047040 

5292 041634 052117 641440 042514 

5293 041642 051101 000 | 

5294 041645 115 046505 020056 EM12: .ASCIZ /MEM. MGMT. REG. BITS NOT SET CORRECTLY/ 
5295 041652 043515 052115 020056 

5296 041660 042522 027107 041040 

5297 041666 052111 020123 047516 

5298 041674 020124 042523 020124 

5299 041702 047503 051122 041505 

5300 041710 046124 000131 

$301 041714 051123 O 043105 €M13: .ASCIZ /SRO EFFECTED BY WRITE TO PSW/ 
5302 041722 042506 052103 042105 

5303 041730 041040 020131 051127 

5304 041736 052111 020105 047524 

5305 041744 050040 053523 

5306 041751 123 030522 042040 EM14: .ASCIZ /SR1 DID NOT READ ALL ZEROS/ 
5307 041756 042111 047040 052117 

5308 041764 051040 040505 020104 

5309 041772 046101 020114 042532 

5310 042000 7522 000125 

5311 042004 052504 046101 040440 EM15: .ASCIZ /DUAL ADDRESSING BETWEEN BYTES OF PAR OR PDR/ 
5312 042012 042104 042522 051523 

5313 042020 047111 020107 042502 

5314 042026 053524 042505 020116 

5315 042034 054502 042524 020125 

5316 042042 043117 050040 051101 

5317 042050 047440 020122 042120 

5318 042056 000122 

5319 042060 052504 046101 040440 EM16: .ASCIZ /DUAL ADDRESSING BETWEEN PAR~PDR‘S/ 
5320 042 042104 042522 051523 

5321 042074 047111 020107 04 

5322 042102 053524 042505 020116 

5323 042110 040520 026522 042120 

5324 042116 023522 000125 

5325 042122 044120 051531 041511 EM17:  .ASCIZ /PHYSICAL ADDRESS FORMED WRONG/ 
3326 042130 046101 040440 042104 

5327 042136 042522 051523 043040 

5328 042144 051117 042515 020104 

5329 042152 051127 047117 000107 

5330 042160 044120 051531 020056 EM20: .ASCIZ /PHYS. ADDR. FORMED WRONG IN RELOCATE MODE/ 
5331 042166 042101 051104 020056 

5332 042174 047506 046522 042105 

5333 042202 053440 047522 043516 

5334 042210 044440 020116 042522 

5335 042216 047514 040503 042524 

5336 042224 046440 042117 000105 

5337 042232 026527 044502 020124 EM21: .ASCIZ /W-BIT DID NOT GET SET IN PDR/ 
5338 042240 044504 020104 047516 

5339 042246 020124 04 020124 

5340 2254 042523 020124 047111 

5341 042262 0040 051104 

5342 042267 041055 052111 EM2e: -ASCIZ /W-BIT SET IN MORE THAN ONE PDR/ 
5345 2274 051440 052105 044440 

5344 2302 020116 047515 042522 

5345 042310 052040 040510 020116 

5346 042316 047117 020105 042720 


—-_-_— — ee ee 
— —_—— —_—— A SO A  _—  _  LLR— — -— —-se- 


CJKDADO KTF11=-AA MMU DIAG 
19=DEC-80 11:05 


CJKDAD.P11 


534 


BARRELS 


VIM 
WANA 






RAE 
RRRRRRRRRLKK 


WANA 
WIV 
OoN 
NIN 
RRRS 
— 
S 


TSSSSSESESES 


SSS 
Wwnr-Ooo 


DIPAGAAAIAAMAMAAV AMV 
SS 
wis 


vin“ 
LNW 
™ 


wiv 
Baas 
Bo ~woO 


SSBERSSESE 


PAA AVIVA IIIA 
Oo 
NN 


WWWNAWGA 


R 
™ 
Ww 
™N 
= 


MINIM MN NoPyNPY 
su 
N 


042422 


044502 


044040 


MACY11 yt 


020124 
046103 


051104 
020124 
23 


052103 
044504 


027122 
020105 


053101 


EM23: 


EM24: 


EM25: 


EM26: 


EM30: 


EM3e: 
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eASCIZ 


.ASCIZ 


ASCIZ 


eASCIZ 


ASCIZ 


eASCIZ 


eASCIZ 





+ ee 


B 
11:36 
SEQ 0105 


/W-BIT NOT CLEARED BY WRITING TO PDR/ 


/WRITING SRO SET W-BIT IN KIPDR7/ 


/W-BIT GOT SET DURING TIMEOUT ABORT/ 


/MEMORY MGMT. ACCESS ABORT DID NOT OCCUR/ 


/ACCESS ERROR DID NOT ABORT INSTRUCTION/ 


/SRO DID NOT REPORT ACCESS ERROR CORRECTLY/ 


/DID NOT LOCKUP CORRECT VIRTUAL ADDR./ 


/PAGE LGTH. ABORT OCCURRED WHEN IT SHOULDN*T HAVE/ 


—_— - _— —_—< — - EE — —_ —_ — -- ss 
= - - 


| Cc 9 
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| CJKDAD.P11 19=DEC-80 11:05 ERROR MESSAGES, DATA HEADERS=-TABLES & FORMATS SEQ 0106 
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5403 043014 040520 042507 046040 EM33: .ASCIZ /PAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE/ 
5404 043022 052107 627110 040440 
043030 047502 052122 04 
043036 042111 047 052117 
943044 047440 041503 051725 
043052 053440 042510 020116 
043060 052111 051440 047510 
043066 1 020104 04 
043074 042526 000 
043077 123 030122 042040 EM34: .ASCIZ /SRO DID NOT REPORT PAGE LGTH. ABORT CORRECTLY/ 
043104 042111 047040 052117 
043112 051040 050105 051117 
043120 020124 040520 042507 
043126 0 052107 027110 
043134 40 047502 052122 
043142 041440 051117 042522 
043150 052103 054514 
043155 23 030122 047440 EM37: .ASCIZ /SRO OR SR2 CHANGED BY A SECOND ABORT/ 
043162 020122 051123 
C43170 044103 047101 042507 
043176 04 054502 040440 
043204 051440 041505 047117 
043212 020104 041101 051117 
043220 000124 
043222 051123 020069 051117 EM40: .ASCIZ /SRO OR SR2 WERE NOT ‘RESET’ BY A RESET/ 
043230 051440 031122 053440 
043236 051105 020105 047516 
OO aSe0 020124 Ea Nog 051505 


3 
043271 123 031122 047040 EM41: .ASCIZ /SR2 NOT TRACKING CORRECTLY/ 


000131 
020104 047516 EM42: .ASCIZ /DID NOT TRAP THRU KERNEL SPACE/ 


33 
043340 052040 051110 020125 
043346 042513 047122 046105 
ogre! 051440 040520 042505 
043365 13 020124 051105 EM43:  .ASCIZ /KT ERROR NOT SERVICED ON TIMEOUT ERROR/ 
043370 047522 020122 047516 
043376 020124 042523 053122 
043404 041511 042105 047440 
043412 020116 044524 042515 
043420 052517 020124 051105 
043426 047522 000122 
043432 051123 020060 051117 EM44: .ASCIZ /SRO OR SR2 CHANGED BY TIMEOUT ERROR/ 
043440 051440 031122 041440 
043446 040510 043516 042105 
043454 041040 020131 044524 
043462 042515 052517 020124 
043470 051105 047522 000122 
043476 051105 047522 020122 EM45: .ASCIZ /ERROR DURING ‘DOUBLE ERROR’ (KT & TIMEOUT)/ 
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CJKDAD.P11 
| 


043722 


044166 
044174 


041040 


046440 
052115 
051105 


020131 


020101 


EM46: 


EM4?7: 


EMSO: 


EM51: 


EMS2: 


EMS3: 


EMS4: 


EMSS: 


-ASCIZ 


ASCIZ 


eASCIZ 


eASCIZ 


ASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


/MFPI] INSTRUCTION PUSHED WRONG DATA/ 


/MTPI INSTRUCTION LOADED WRONG DATA/ 


/STACK NOT PUSHED BY MFPI-MIPI/ 


/KERNEL PAGE ACCESS INSTEAD OF USER: MFPI-MTPI/ 


/WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE/ 


/MFPD INSTRUCTION PUSHED WRONG DATA/ 


/STACK NOT PUSHED BY MFPD-MTPD/ 


/PAR OR PDR CHANGED BY A RESET/ 





ee ee ee ee 


mmr ee ee we ee ee ee _—- wm mm ce eee ee 


3 
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orn 
je 
xx 
U9 
oS 


Ww 
~ 


a 


523 124 
002516 051520 0620127 044103 EM56: .ASCIZ /PSW CHANGED BY AN RTI IN USER MODE/ 


™ MN 2 
ONO ALRWN OVO w 


044253 117 042114 050040. DH1: .ASCIZ /OLD PC OLD PSW R6 WAS TESTNO ERRORPC/ 
0442 


MrMNNonorr 


000 
ts 117 94 AE 050040 Dke: -ASCIZ /OLD PC OLD PSW R6 WAS SRO SR2 TESTNO ERRORPC/ 
044 


044413 127 047522 042524 DHS: -ASCIZ /WROTE READ TESTNO ERRORPC/ 
54 


5 000 
5546 044455 101 042104 042522 DH?: -ASCIZ /ADDRESS TESTNO ERRORPC/ 
5547 052040 


5 00 
224 044503 122 043505 051511 DH10: .ASCII /REGISTER-ADDRS NUM OF/<CRLF> 


5554 044524 046525 020040 043117 


044533 101 042116 042455 -ASCIZ /AND-ED OR-ED TIMOUTS TESTNO ERRORPC/ 
orks vgdies 047440 026522 


RA 
OOO 

Oo 

: 

1] 

) 

Nm 

© 

* 

© 


REESE. 
© 
VI 
— 
VW 
© 
Ww 
oS 
~ 
N 
—2 
N 
& 


Ww 
a 

—_> 

22 
TARA 
SNe 

oOo 

wit 

—©O 

—_—) wd 

—_—d od 

~ 

22 

Nm 

m~ 

&~ 

Ll -) 

| | 

Wi 

—, 

— 

Nm 

MN 


DH11: ASCII /REGISTR READ READ~ (BINARY) /<CRLF> 


FRE 

oO 

Uw 
= 

oO 

— 

oO 
Oo 
mur 
oO— 
ed 3 

™m 

&* 

SP 
ow 

oun 

On 
Oouwe 

OO 

~u 

o=— 

Win 

o— 

Ww 


051101 024531 


101 042104 042522 -ASCIZ /ADDRESS (OCTAL) 5432109876543210 TESTNO ERRORPC/ 
051523 024040 041517 


rapa ay 4 
OO WS 
RRR 
RRS. 
RRA 
~—ofr 
© 
> 
= 
— 
— 


5 
5 
5 
5 
5 
5 
5 
5 
5 


3 
2 
* 
3 
oO 





ee 
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5571 044654 040524 024514 032440 
044662 


557 031464 030462 034460 
5573 044670 033470 032466 031464 
5574 044676 62 02 05204 


0304 020060 052040 
5575 944704 051505 047124 020117 
5576 044712 042440 051122 051117 


044720 000 
5578 ert! > 122 043505 or 123) DH12:  .ASCII /REGISTR WROTE READ READ~(BINARY)/<CRLF > 


200 
zeae 044771 01 042104 042522 -ASCIZ /ADDRESS (OCTAL) (OCTAL) 5432109876543210 TESTNO ERRORPC/ 


5594 045056 051117 041520 000 

5595 045063 122 040505 020104 DH15: .ASCIZ /READ TESTNO ERRORPC/ 
5596 045070 020040 052040 051505 

5597 045076 047124 020117 042440 

5598 045104 051122 051117 041520 

5599 045112 000 

5600 045113 120 051101 050055 DH16: -ASCII /PAR-PDR PAR-PDR/<CRLF > 

5601 045120 051104 050040 051101 

5602 045126 050055 051104 200 

5603 045133 03 042514 051101 -ASCIZ /CLEARED EFFECTD EXPECTD RECEIVD TESTNO ERRORPC/ 
5604 045140 042105 042440 0435106 

5605 045146 041505 042124 042440 

5606 045154 050130 041505 04 

5607 045162 040 041505 044505 

5608 045170 042126 052040 051505 

5609 045176 047124 020117 042440 

5610 045204 051122 051117 041520 

5611 045212 000 

5612 045213 120 054510 044523 DH17: .ASCII /PHYSICL VIRTUAL/<CRLF> 

5613 045220 046103 055040 051111 

5614 045226 052524 046101 200 

5615 045253 101 042104 042522 -ASCIZ /ADDRESS ADDRESS KIPAR4 TESTNO ERRORPC/ 
5616 045240 051523 040440 042104 

5617 045246 042522 051523 045440 

5618 045254 050111 051101 020064 

5619 045262 040 051505 04 

5620 045270 020117 042440 051122 

5621 045276 051117 041520 000 

5622 045303 120 054510 044523 DH20: .ASCII /PHYSICL PAR 4 PAR 5/<CRLF> 
5623 045310 046103 050040 051101 

5624 045316 032040 0200 050040 

5625 045324 051101 032440 200 

5626 045351 101 042104 042522 -ASCIZ /ADDRESS VBA VBA PAR 4 PAR 5S PSW TESTNO ERRORPC/ 
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| 
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| 


CJKDAD.P11 





wi 
> 
od 


wr 
> 
w 
3s 


PLLLLLRRRARRRAF - 
RRRS 
REY 


051523 
0 


020125 
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047522 
020122 


0 
054105 
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ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS 


DH21: 


DH2e: 


DH235: 


DH24: 


DH26: 


DH30: 


DH31: 


ASCII 


ASCIZ 


ASCII 


ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


-ASCIZ 


eASCIZ 


/PDR VIRTUAL/<CRLF > 


/TESTED ADDRESS TESTNO ERRORPC/ 


/PDR IN PDR VIRTUAL/ 


/ERROR TESTED ADDRESS TESTNO ERRORPC/ 


/PDR TESTNO ERRORPC/ 


/PDR WAS EXPECTD TESTNO ERRORPC/ 


/PDR 4 ~PSW TESTNO ERRORPC/ 


/SRO WAS EXPECTD PDR 4 = PSW TESTNO ERRORPC/ 


/SR2 WAS EXPECTD PDR 4 = PSwW TESTNO ERRORPC/ 





LL ew 


Poe RR 


| CJKDADO KTF11=AA MMU D 
CJKDAD.P11 


| 
| 
| 
| 


052105 


19-DEC~BO 1: 05 


020104 
020064 


047522 
051522 


051117 


MACY11 yey? 


0040 
050122 
027101 

0 


050122 
020124 


041520 


DH32: 


DH33: 


DH34: 


DH35: 


DH36: 


DH37: 


ee = -—_—_——_— EE 
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OR MESSAGES, DATA HEADERS“ TABLES. & FORMATS 


eASCIZ 


-ASCIZ 


ASCIZ 


eASCIZ 


eASCIZ 


ASCII 


eASCIZ 


/V.B.A. 


/V.B.A. 


/V.B.A. 


/V.B.A. 


KIPDR4 


KIPDR4 


KIPDR4 


KIPDR4 


SRO WAS SR2 WAS TESTNO ERRORPC/ 


TESTNO ERRORPC/ 


SRO WAS EXPECTD TESTNO ERRORPC/ 


SR2 WAS EXPECTD TESTNO ERRORPC/ 


/SR2 WAS EXPECTD TESTNO ERRORPC/ 


/FIRST ABORT 


SECOND ABORT/<CRLF> 


/SRO WAS SR2 WAS SRO WAS SR2 WAS TESTNO ERRORPC/ 


SEQ 0111 


ee ee = ee ce ee 
ee ee ee ee —— -——_ — 
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5739 046535 123 030122 053440 DH40: .ASCIZ /SRO WAS SR2 WAS TESTNO ERRORPC/ 
5740 046542 051501 051440 031122 

5741 046550 053440 051501 052040 

574 556 051505 04 020117 

574 564 042440 051122 051117 

5744 046572 041520 


000 
5745 046575 120 053523 053440 DH42: .ASCIZ /PSW WAS R6 WAS TESTNO ERRORPC/ 
04660 0066 


7124 
5749 046624 042440 Ost hee 051117 
5751 046635 105 050130 041505 DH44: .ASCiI /EXPECTED RECEIVED/<CRLF > 
5752 046642 042524 020104 020040 
5753 046650 020040 020040 020040 
5754 lepers 042522 042503 0535111 


200 
5756 046667 123 030122 020040 -ASCIZ /SRO SR2 SRO WAS SR2 WAS TESTNO ERRORPC/ 


7 

3707 046740 ed 051117 041520 

30e2 046747 105 5 F sag DH45:  .ASCII /EXPECTED:/<CRLF> 

5767 046761 120 053523 020040 ASCII /PSW PC SRO SR2/<CRLF > 
5768 046 050040 


200 
5772 047015 061 030067 030460 ASCII /170017 (3$+4) 020147 (3$)/<CRLF> 
5 7022 022065 


7 063 100051 
5777 047052 042522 042503 053111 ASCII /RECEIVED:/<CRLF> 
5779 047064 che ly 020127 020040 eASCIZ /PSW PC SRO SR2 TESTNO ERRORPC/ 


VIMIVIMAVIVIVIAV 


PERErE rer ct 


03 
040504 040524 020040 DH46: .ASCII /DATA DATA/<CRLF > 
020040 040504 040524 


200 
105 050130 041505 -ASCIZ /EXPECTD RECEIVD TESTNO ERRORPC/ 


RRRRRRRRRKKEK 
VANS 
SISURSSRES 

. 
x 
© 
o 
x 
oOo 
= 


5 
5 
5 
>) 
5 
>) 


“SN™N 
MmN— 
—O™wn 
Ons 
© 
Vi 
out 
wv 
oo 
Wu 
So 
& 
™N 
ond 
™Nm 
& 
© 
Nm 
© 
anid 
a" 
™N 


042440 051122 051117 
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000 
047221 124 Sart, Ate: DHSO:  .ASCIZ /TESTNO ERRORPC/ 
72 | 
047241 123 030122 053440 DH51: .ASCIZ /SRO WAS SR2 WAS TESTNO ERRORPC/ 
05 052040 
047262 051505 047124 020117 


047270 042440 051122 051117 
041520 000 


7301 120 054510 044523 DHS2: ASCII /PHYSICL PAR 4/<CRLF> 
306 0461035 wee 051101 


3 the 042522 -ASCIZ /ADDRESS V.B.A. PAR 4 SRO WAS SR2 WAS PSW TESTNO ERRORPC/ 


000 
047417 120 053523 053440 DH56: .ASCIZ /PSW WAS EXPFCTD TESTNO ERRORPC/ 


047446 042440 051122 051117 
000 


047460 EVEN 
047460 001266 001270 001264 DT1: -WORD TRAPPC,TRAPPS,WASR6,TESTNO,SERRPC ,C 
047466 001262 001116 000000 
047474 001266 091270 001264 ODTe: .WORD  TRAPPC,TRAPPS ,WASR6,WASSRO,WASSR2, TESTNO, SERRPC ,0 
047502 001272 001274 001262 
047510 001116 000000 
047514 001162 001164 001262 DTS: .WORD $REGO,$REG1,TESTNO,SERRPC 0 
047522 001116 000000 
Oe age 001162 001262 001116 DT7: -WORD $REGO,TESTNO,SERRPC,0 
047536 001300 001302 001304 DT10: .WORD ANDADR,ORADR, TONUM, TESTNO,$ERRPC,0 
047544 001262 001116 0 0 
047552 001162 001164 001164 DT11: .WORD $REGO,$REG1,$REG1,TESTNO,SERRPC,0 
047560 001262 001116 000000 
047566 001162 001164 001166 DT12: .WORD $REGO,$REG1,$REG2,$REG2,TESTNO,SERRPC,0 
047574 001166 001262 001116 
047602 000000 
047 001162 001262 001116 DT13:  .WORD $REGO,TESTNO,SERRPC,0 
047612 000000 
047614 001162 001164 001174 DT16: .WORD $REGO,$REG1,$REG5S,$REG2,TESTNO,SERRPC 0 
047622 001166 001262 001116 
047630 000000 
047632 001312 001306 001172 DT17: .WORD PBALO,VIRT1,$REG4,TESTNO, SERRPC ,0 
047640 001262 001116 000000 





~_ ee ee A 
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5851 047646 001312 001306 001310 DT20: .WORD PBALO,VIRT1,VIRT2,$REG4,$REG5,STMPO, TESTNO, SERRPC 0 
5852 047654 001172 601174 001176 
58535 047662 001262 001116 000000 
5854 047670 001174 001170 001262 DT21: .WORD $REG5,$REG3,TESTNO.SERRPC,0 
5855 947676 001116 000000 
5856 047702 001162 001174 001170 DT22: .WORD $REGO,$REG5,$REG3,TESTNO,$ERRPC,0 
5857 047710 001262 001116 000000 
5858 047716 001174 001262 001116 DT23: .WORD $REG5,TESTNO,SERRPC,0 
5859 0477<4 000000 
5860 047726 001166 001164 001262 DT24: .WORD $REG2,$REG1,TESTNO,SERRPC,0 
5861 047734 001116 000000 
5862 047740 001166 001176 001262 DT26: .WORD S$REG2,$TMPO,TESTNO,SERRPC ,0 
5865 047746 001116 000000 
5864 047752 001272 001170 001166 DT30: .WORD WASSRO,$REG3,$REG2,$TMPO,TESTNO,SERRPC ,0 
5865 047760 001176 001262 001116 
5866 047766 000000 
5867 047770 001274 001172 001166 DT31: .WORD WASSR2,$REG4,$REG2,$TMPO,TESTNO,$ERRPC ,0 
ones er ane 001176 001262 001116 
5870 C50006 001162 001172 001272 DT32: .WORD $REGO,$REG4,WASSRO,WASSR2, TESTNO,$ERRPC ,0 
5871 050014 001274 001262 001116 
5872 050022 
5873 050024 001162 001172 001262 DT33: .WORD $REGO,$REG4,TESTNO,$SERRPC,0 
5874 050032 001116 000000 
5875 050036 001162 001172 001272 DT34: .WORD $REGO,$REG4,WASSRO,$REG2,TESTNO,SERRPC ,0 
5876 050044 001166 001262 001116 
5877 050052 000000 
5878 050054 001162 001172 001274 DT35: .WORD S$REGO,.$REG4,WASSR2,$REG3,TESTNO,SERRPC 0 
5879 050062 001170 001262 901116 
5 050070 000000 
§881 050072 001274 001164 001262 DT36: .WORD WASSR2,$REG1,TESTNO,SERRPC 0 
5882 050100 001116 000000 
§883 050104 001176 001202 001272 DT37: .WwORD $TMPO,$TMP2,WASSRO,WASSR2,TESTNO, SERRPC ,0 
5 050112 001274 001262 001116 
5885 050120 0 
5 050122 001272 001274 001262 DT40: .WORD WASSRO,WASSR2,TESTNO,$ERRPC 0 
5887 050130 001116 000 

050134 001164 001166 001262 DI42: .WORD $REG1,$REG2,TESTNO,SERRPC,0 
5889 050142 001116 000000 
8 050146 001162 001164 001272 DT44: .WORD $REGO,$REG1,WASSRO,WASSR2,TESTNO,SERRPC ,O 
5891 050154 001274 001262 001116 
5892 050162 000000 
§893 050164 001164 001170 001272 DT45: .WORD $REG1,$REG3,WASSRO,WASSR2,TESTNO, SERRPC ,0 
5894 050172 001274 001262 001116 
5895 050200 000000 
$896 050202 001162 001164 001262 DT46: .WORD $REGO,$REG1,TESTNO,$ERRPC,0 
5897 050210 001116 000000 
§898 050214 001262 001116 000000 DT50: .wORD TESTNO,$ERRPC,0 
5899 050222 001272 001274 001262 DT51: .WORD WASSRO,WASSR2,TESTNO,SERRPC .0 
5900 050230 001116 000000 
5901 050234 001312 001306 001172 DI52:  .WORD PBALO,VIRT1,$REG4,WASSRO,WASSR2,$TMPO,TESTNO, SERRPC ,0 
5902 050242 001272 001274 001176 
5905 050250 001262 001116 000000 
5904 050256 001164 001166 001262 DT56: .WORD $REG1,$REG2,TESTNO,$ERRPC ,0 
Zone 050264 001116 000000 


a 
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| CykAD P11 19=DEC-80 11:05 SEQ 0115 
5907 ©59270 000 000 000 DFi: BYTE 0,0,0,0,0 
5908 050<7 000 000 
5909 050275 000 000 0CO ODFe: -BYTE 0O,0,0,0,0,0,0 
5910 05030) 000 000 000 
5911 050205 000 
591 5030- 000 000 000 DF3: .BYTE 0,0,0,0 
591 050707 000 
5914 050310 000 000 000 ODF?: -BYTE Q,0,0 
5915 050513 000 000 001 DF10: BYTE 0O,0,1,0,0 
5916 050316 000 000 
5917 050320 000 000 002 DF11: -BYTE 0Q,0,2,0,0 
5918 0503.3 000 000 
5919 050375 000 000 000 DFi2: BYTE 0,0,0,2,0,0 
5920 050730 002 000 000 
5921 057333 000 000 000 DF13: BYTE 0,0,0 
5922 050336 000 000 000 DF16: BYTE 0,0.0,0,0,0 
5923 050341 000 000 000 
5924 (50344 003 000 000 ODF17: BYTE 3,0.0,0.0 
5925 50347 000 000 
5926 C50351 003 000 000 DF20: BYTE 3,0.0,0,0,0,0,0 
5927 050354 000 000 000 
59-8 050357 000 000 
5029 050361 000 000 000 DF21: BYTE 0,0.0,0 
5930 050364 000 
5931 50365 000 000 000 DF22: -BYTE 0Q,0,0,0,0 
5932 050570 000 000 
5933 050372 000 000 000 DF23: -BYTE O,0,0 
5934 050375 000 000 000 DF24: -BYTE 0.0.0.0 
5935 050400 000 
5936 050401 000 000 000 DF30: -BYTE 0,0,0,0,0,.0 
5937 050404 000 000 000 
5938 050407 000 000 000 DF46: -BYTE 0O,0,0,0 
5939 050412 000 
5940 050413 000 000 DF 50: -BYTE 0,0 
5941 050415 000 000 000 DF51: BYTE 0,0,0,0 
5942 050420 000 
5943 0950421 003 000 000 DFS2: BYTE 3,0,0,0,0,0.,0.0 
5944 050424 000 000 000 
5945 050427 000 000 
5946 050431 000 000 000 DF56: BYTE 0,0,0,0 
5947 050434 000 
5948 
5949 000001 END 


—- TT 
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APTENV= 000001 4216 4755 4840 48824 
APTSPO= 000100 4757 4842 48834 


> 

< 

mn 

oo 

~ 

MN 

nhnhhuna 

Co Co Co 

WW 

NNN 
oc 
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6704 2151 2178 2205 2233 2257 2300 2327 2354 2381 2455 
000001 6604 670 
000002 6594 669 


CJKDAD.P11 — 19=DEC=80 11:05 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0116 
ABASE = 000000 857 
ACDW1 = 000000 857 
ACDW2 = 000000 857 
ACPUOP= 000000 857-872 | 
DWwO = 000000 857 
ADDW1 = 000000 857 | 
ADDW10= 000000 857 | 
ADDW11= 000000 857 | 
ADDW12= 000000 857 | 
ADDW13= 000000 857 | 
ADDW14= 000000 857 | 
ADDW15= 000000 857 | 
Dw2 = 000000 857 
ADDW3 = 000000 857 
ADDW4 = 000000 857 
ADDWS = 000000 857 
ADDW6 = 000000 857 
ADDW? = 000000 857 
ADDWB = 000000 857 
Dw9 = C00000 857 
ADEVCT= 000000 857 863 
ADEVM = 000000 857 
NV. = 000000 857 868 
AENVM = 000000 857 869 
AFATAL= 000000 857 860 
AMADR1= 000000 857 885 
AMADR2= 000000 857 
AMADR3= 000000 857 
AMADR4= 000000 857 
AMAMS1= 000000 857 879 
AMAMS2= 000000 857 | 
AMAMS3= 000000 857 
AMAMS4= 000000 857 
AMSGAD= 000000 857 865 : 
AMSGLG= 000000 857 | 
AMSGTY= 000000 857 859 
AMTYP1= 000000 857 880 | 
AMTYP2= 000000 857 | 
ieee 
YP4= | 
ANDADR 001300 8974 1516* 1540* 1558" 1580* 1598* 1620" 1638* 1660* 1678" 1700* 5837 
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BITO2 = 000004 6584 668 

B1TO3 = 000010 6574 667 

BITO4 = teva 6564 666 

BITO5S = 0 6554 665 

BITO6 = 900100 6544 664 

BITO7 = 000200 6534 663 

BI1T08 = 000400 6524 662 4144 

BITO9 = 001000 6514 661 4152 4227 

BIT1 = 000002 6694 

B1T10 = 002000 6504 4204 

BIT11 = 004000 6494 4159 

aiti¢ = 010000 6484 4099 

BIT15 = 020000 6474 4211 

BIT14 = 040000 64 4130 

atD = 100000 6454 1736 

BITS = 000010 6674 

BIT4 = 000020 6664 744 2204 2256 2299 2326 2353 2380 2452 4508 

BITS = 000040 6654 

BIT6é = C00100 6644 745 

BIT? = 000200 66 

BIT8 = 000400 6624 

BIT9 = 001000 6614 

BPTVEC= 000014 677# 

CKSWR = 104410 4129 4193 4226 51774 

CMPREG 035426 2017 2025 2035 2041 44084 

CMSG 37031 4712 47258 

CNTRLC 036752 4558 4646 47104 

CR = 1 5854 4818 4828 

CRLF = 000200 5864 1360 4772 4828 5551 5563 5578 5600 5612 5622 5637 5725 5751 
5765 5767 5772 5777 5787 5805 

DALTB1 027132 2901 29674 

DALTB2 027166 2916 29854 

DAL TB3 500 3014 30804 

DALTB4 027534 3029 30984 

DDISP = 177570 592H 824 1322 

D 50270 924 59074 

DF10 50313 967 59154 

DF 11 050320 974 1206 59174 

DF12 050325 981 1000 59194 

DF 13 050335 98 99 59214 

DF 16 050336 1007 59224 

DF 17 050344 1014 59244 

DF2 050275 930 59094 

DF 20 050351 1021 59264 

DF 21 050361 1028 59294 

DF 22 050365 1035 59314 

DF 23 050372 1041 1137 593354 

DF 24 050375 1047 1053 1059 1065 1089 1106 1119 1125 1131 59344 

DF 3 050304 936 942 948 954 59124 

DF 30 050401 1071 1077 1083 1095 1100 1113 1144 1154 59364 

DF 46 050407 1161 1168 1193 59384 

DF SO 050413 1174 1199 59404 

DF 51 050415 1180 59414 

DF 52 050421 1187 59434 

DF 56 050431 1212 59464 
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CJKDAD P17 19=DEC-80 11:05 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0118 
DF 7 050310 960 59144 
DH1 044253 922 $5234 
DH10 044503 964 55514 
DH11 044603 971 1203 55634 
DH1 944723 978 997 55784 
DH1 045063 985 991 55954 
DH16 045113 1004 56004 
DH17 045213 10117 56124 
DH2 044323 928 553C4 
DH20 045303 1018 56224 
DH21 045431 1025 56374 
DH22 045511 1032 564 
DH23 045610 1039 1135 56574 
DH24 045640 1045 1051 56614 
DH26 045700 1057 1063 56674 
DH3 044413 934 940 946 952 55404 
DH30 045740 1069 56734 
DH31 046020 1075 56814 
DH 046100 1081 56894 
DH33 C46160 1087 56974 
DH34 046220 1093 57034 
DH35 046300 1098 57114 
DH36 046360 1104 1123 57198 
DH37 046420 1110 57254 
DH40 046555 1117 57398 
DH42 046575 1129 57454 
DH44 04 1141 57514 
DH45 046747 1148 57654 
DH46 047144 1158 1165 1190 57874 
DH50 047221 1172 1197 57964 
DH51 047241 1178 57 
DH52 047301 1184 58054 
DH56 047417 1210 58194 
DH7 044453 958 55464 
DISPLA 001142 8244 1322* 1330* 4174* 6203s 
DISPRE 000174 7604 1330 

034176 4079 40904 
DSWR = 177570 S914 823 1321 
DT1 047460 923 284 
DT10 047536 966 58374 
DT11 047552 973 1205 58394 
DT12 7566 980 999 58414 
D113 047604 986 992 58444 
DT16 047614 1006 58464 
D117 047632 1013 58494 
DT2 047474 929 58304 
DT20 6 1020 58514 
DT21 047670 1027 58544 
DT22 047702 1034 58564 
DT23 047716 1040 1136 $8584 
D124 047726 1046 1052 58604 
DT26 047740 1058 1064 58624 
DT3 047514 935 941 947 953 58334 
DT30 047752 1070 58644 
pT31 047770 1076 58674 
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050024 1088 
050036 1094 
050054 1099 
050072 1105 
950104 1112 
050122 1118 
050134 1130 
050146 1143 
50164 1153 
050202 1160 
050214 1173 
050222 1179 
0234 1186 
50256 1271 
047526 959 
000030 6804 
1162 921 
1541 963 
1605 970 
1645 977 
1714 984 
1751 990 
2004 996 
42060 1003 
2122 1010 
1222 927 
2160 1017 
2232 1024 
042267 1031 
042326 1038 
042372 1044 
042432 1050 
042475 1056 
545 1062 
041271 933 
042614 1068 
2666 1074 
042735 108C 
3014 1086 
043077 1092 
3155 1109 
041330 939 
043222 1116 
043271 1122 
043324 1128 
3365 1134 
3432 1140 
3476 1147 
3551 1157 
3614 1164 
1363 945 
3657 1171 
3715 1177 
3773 1183 
4051 1189 
4114 1196 
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58814 


1192 58964 
58984 


1292* 


1103 53874 
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044152 1202 55114 
044210 1209 55164 
041436 951 52684 
041503 957 52754 
935022 4213 42594 ; 
= 000004 67 1319 1320" 13312 13642 1365" 2694" 2707* 135 4136* 4138* 4141* 
035620 2160 2187 2214 2242 2266 2309 2336 2363 2390 2467 2520 44854 
= eeeete stat 1359 5168 5169 5170 $171 5172 $173 175 5177 5178 5179 5180 
= 104407 1354 4719 51754 
= 000011 5834 4770 828 
= 000020 6784 1289" £1290* 
= 001100 7464 1473 1477 1479 2015 2023 2031 2039 2696 2906 2928 3019 3041 
3143 3205 3210 3273 3292 3351 3411 3505 3837 3969 
KIPARO= 172340 7334 @§=1556 1829 1919 2022 2076 2130 3469* 4385 4423 4488 
= 172342 7344 3470 
= 172344 7354 3471* 
= 172346 7364 2554 2735* 3130" 3472 
= 172350 737@ = 2748* 02175" 3902202") 2230") = 2.255% 80 2297* = 23.24% = 23551* 8 89—92378* = 24356 * = 24 B7*# = 24 97* 
2506* 2736 %3131% 3673 3493" 3645" 3823» 
= 172352 7384 2437* 2488+ 2498 2507* 3180* 
KIPAR6= 172354 7394 2706* 
= 172356 7404 3474+ 
= 172300 7224 1596 1873 1963 2073 2065 2137 2558 2562 2576 3478 4381 4409 
= 172302 7238 
= 172304 7244 
= 172306 7258@ 2739* 2899" 3132 
= 172310 7264 2685* 2499* 2503" 2746 2813* 2909* 2921* 3022  3034* 3133* 3160* #3181* 
32512 3492%  3498%  3643* 3669" 3671" 3686* 3688* 3701* 3703* #$%$§$3717* #£=%}3719* 3735* 
3737* 3752* 3754 £37712 «#£«%+3773* # 3822* 
= 172312 727#@ =—2686* 2500" 2504* 2900" 3182* 3252 
= 172314 7284 2693* 2697 2705* 
= 172316 729% 2682+ 2685 3342 3371* 
= 000012 5844 4822 4828 
020464 13634 
002150 leaks 1366 2510 2793 2854 2962 3075 3161 3253 3370 3444 3611 3782 
002152 12554 1270* # £1370* 
= 250 6894 13646" 1367* 2651* 25108 2745* 2793% 2812" 2854~ 2904* 2919% 2962" 3017* 
3032* 3075* 3136 %3167% $%3202* #3208 3253* 3497* 3611* 3647* 3782+ 3830+ 3958+ 
1302 89 1517* 1538 15592 1578 1599" 1618* 1639* 1658* 1679* 1698* 5837 
001314 9034 4507+ 4510 
1312 9024 4698+" 4495" 4504" 5849 5851 5901 
027150 2902 29764 
27202 2917 29934 
027516 3015 30894 
027550 3030 31064 
= 177772 5904 
= 240 6844 
= 6074 
= 6084 
= 0001 6094 
= 000140 6104 
= 000200 6114 
= 000240 6124 
= 000300 6134 
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| CJKDAD P11 
PR7 = 000340 
= 177776 
| PSw = 177776 
PWRMSG 041120 
PWRVEC= 000024 
RDCHR = 104411 
RDLIN = 104412 
RESREG= 104414 
RESTRT 020464 
RESVEC= 000010 
SAVREG= 104413 
SETREG 035334 
0 = 177572 
SR1 = 177576 
SR2 = 177576 
SR3 = 172516 
STACK = 001100 
START 020000 
STKLMT= 177774 
001140 
SWREG 000176 
SwO = 000001 
SwOO = 000001 
swO71 = 000002 
SWO2 = 000004 
SwO3 = 000010 
SwOS4 = 000020 
SwOS = 000040 
SwO6 = 000100 
SwO7 = 000200 
SWO8 = 000400 
SwO9 = 001000 
Swi = 2 
SwW10 = 002000 
Sw11 = 000 
SWwi2 = 010000 
Sw13 = 020000 
SwW14 = 040000 
SW15 = 100000 
SWw2 = 000004 
Sw3 == 000010 
SW4 == 000020 
Sw5 = 000040 
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1434* 1436* 
2226 2251 

279i* 2817 

3318*  3401* 
3650*  3661* 
3887*  3900* 
5202* 5214* 
1774* 1776 

2300*  2302* 
2764 2779* 
3206 3211 

3948* 

2832 2930 

3408 3619 

2177* 2204* 
4029 

1352 4099 

5194 5207* 


4130 


ee eee e+ 


1442* 


4144 


4144 


4152 


SEQ 0121 


1451 
24918 


3284 
3523s 
3748 
4009* 


4159 


a 
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SWw6 = =-:« 000100 6364 

SW7 = 000200 6354 

SWB 3== 000600 6344 

SWw9 == 001000 6334 

TBIT = 490020 7444 6363 4348 4361 

TBITPS 001276 8964 1371* 4346" 4361 4363 4364* 

TBITVE= 14 6754 1303* 1304 

ST 001262 8 4200* 5828 5830 5833 5835 5837 5839 5841 5844 5846 5849 5851 

5854 5856 5858 5860 5862 5864 5867 5870 5873 5875 5878 5881 5883 
5886 5888 5890 $893 5396 5898 5899 5901 5904 

TIMERR 002076 12268 1364 1529 : 569 1609 1649 1689 2707 3297 3369 3442 

TIMFLG 002100 12278 1239* 13569* 

TKVEC = 000060 6824 

TOF F 035246 2552 2618 2679 3270 3391 43434 

TON 035302 2598 2664 2709 3299 3447 3614 

TONUM 001304 8994 1518* 1526 1541* 1560* 1566 1581* 1600* 1606 1621* 1640* 1646 1661* 
1680* 1686 1701* 5837 

TPVEC = 000064 6834 

TRAPPC 001266 8924 1235 1241 1263* 1272 2514" 2530 2948* 2958 3061* 3071 3616* 3626 
3786* 3796 3944" 3954 5828 5830 

TRAPPS 001270 8934  1236* 1240 1264" 1271 2515* 2529 2949* 2957 3062* 3070 3617* 3625 
3787* 3795 3945* 3953 5828 5830 

TRAPVE= 000034 6814 1293* 1294" 

TRTIVEC= 000014 67 

TST1 020546 13834 

TST10 21516 1610 16324 

TST11 021650 1650 16724 

TST12 22002 90 17154 

TST13 022144 17714 

TST14 022202 17934 

TST15 022274 1814 18274 

TST16 8022412 18714 

TST17 022534 19174 

TST2 020620 14 

TST20 022 19614 

TST21 023014 20094 

TST22 023220 20564 

TST23 23404 21284 

TST24 024176 22884 

TST25 024626 24314 

TST26 8025352 2512 25504 

TST27 025554 261 

TST3 20704 14324 

TST3O 0 ©025762 26774 

TST31 026130 27328 

TST32 026424 28054 

TST33 ©0266 34 28984 

1ST34 027216 2964 30134 

TST35 027564 3077 31294 

TST360©=—s-:« O27756 31798 

TST37 =. 0030 32694 

TST4 021026 14714 

TST40 8603054 33084 

TST41 030630 3404 

TST42 031000 33904 

TST43 0 3=—6.035 1 322 34684 
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——_ < eo 


CJKDADO KTF11=AA MMU DIA 


CJKDAD P11 
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“ 

nun 


032170 


000 

001306 
001310 
001264 
001272 


001274 
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4239 
4901 


2099 


3393* 


2087 


3646* 


2624 


3831* 


3485* 


2642 


3482 


2466* 


3042* 
3946* 
2840 
3212* 
5830 


3817 


SEQ 0123 


2519* 
3065* 
5864 


2939 
3231* 
587G 
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 CJKDAD.P11 19=DEC-B0 11:05 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0124 
 $CHARC 037632 L?7??*  G7R7*® «4796 «= 4B20* 42S 
| $CKSWR 035760 4527" 5177 
$CLR.T 034164 4081 40848 
$CMTAG 001100 803@ 1282 1283 ~&# 1291 1297 1298 - 1299 
= 900006 R354 B36" 8378 «838%  =839" B40# 8414 
= 000014 Ey L727 D1, 3 3;) 8) <0) 
= 000006 R33¢ = B35 
= 000006 8414 8424 8434 8444 8454 8464 8474 
036710 4553 4643s G92 
036722 4538 4694" 
036715 4563 446667 0 3=—-_- 6693" 
001254 872a 
001223 B5ia@ 4077 4216 4239 4260 4279 4284 4327 4574 4672 4692 4776 4828 
040422 5010 4  5052a 
040526 4313-55109" 
001236 R634 
034234 4049 40 
040412 5013-50484 
034166 70s («41346020 OBSH 4234 
634016 1297 40514 
034300 41124 
001246 8684 1350 1805 2059 4216 4755 4840 4864 
001247 B69" 1334 6757 4762 4842 
033762 40414 4720 
034010 1297" 4048% 4052 
001103 4119 6168 4150 6156" 4178  4201* 4239 
001115 8124 1300* 4150 4173* 4178 
034564 1291 61920 
001116 8134 4208* 4209 4210 4239 4266 5828 #$=$|(‘S$830 5833 £5835 ##$=(‘%5837 £5839 5841 
5844 5846 5849 5851 5854 5856 5858 5860 5862 5864 5867 #5870 5873 
5875 5878 5881 5883 5886 ###5888 #5890 5893 5896 5898 5899 5901 5904 
001316 9184 4274 
001112 810# 1339% 4074 4207* 4239 
001214 R484 1299% 4172 4230 4232 4239 
001246 8674 
001262 795 8874 
901230 86 4868* 
037702 4831* 4834* 4862 4871* 48798 
001156 8314 4780 4828 
001155 8304 4828 
001120 8144 
001124 816m 
034146 40784 
036030 4539H 5175 
= 000000 563 
000204 ? 
001104 8074 4162* 4164 4166* 4177 
LLUP 041112 5186 5202 52234 
S$INTAG 001135 8214 4555 575 4699 
$ITEMB 001114 8114 4210* 4218 4239 4263 
F 001224 8524 4239 4682 4692 4828 
037701 4872* 48784 
034272 4104 41084 
$LPADR 001106 0 1315* 4154" 64170" 4175 4177 
$LPERR 001110 809" 1316* 1384" 1399" 1407* 1422* 16338 1447 1460* 1512* 1525" 1554* 1565* 
1594* 1605* 1634* 1645" 16748 1685* 1726 1735* 1759e 1831" 1840* 1860* 1875* 
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4870* 


15a" 
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CROSS REFERENCE TABLE == USER SYMBOLS 

1905* 1920" 1933" 1951" 1964* 
2170" 2197" 2225" 2250" 2274s 
2597 2627*  2663* 2681"  2692* 
3018* 3031" 3074" 3137" 3159« 
3345" 3372 3400"  3446*  3490* 
3612* 3665" 3681*  3697* 3712* 
aoe 3899" 3913" 3926+  3940* 
795 8584 1333 1350 4169 
4838 4873* 48778 

46978 

4848* 4851 

4853* 

1229* 1257" 4846 4854+ 4866 
46954 

4177# 

4782 4828 

1378 14014 403 14254 1427 
16244 1626 16644 1666 17044 
1864 19094 1917 19534 955 
24024 2404 25344 2536 26004 
2888 30014 3003 31154 3117 
33754 35377 345 58 36304 
eran 49834 

4940* 4945 4948* 49592 49854 
4147 4155 4165 41748 

1333* 1807 2061 4045*  4046* 
51864 5214 

52024 
239 4593 4675 4692 4828 
5178 

5179 

oi" 5833 5835 5839 5841 
4195* 5833 5839 5841 5846 
4196* 5841 5846 5860 5862 
4197* 5854 5856 5864 5878 
4198* 5849 5851 5867 5870 
4199* 5846 5851 5854 5856 
5181 

1305* 1510* 4082 41054 

5780 

5203 5204* 5205" 52254 


1464 
17614 
1999 


26674 
3167 
38014 


4161 


5846 


5881 
5867 


5875 


4178 


5856 


5888 
5875 


5878 


3 
4171* 


39574 


4710 


5870 


5890 
5888 


5901 


15444 


5875 


5895 
5904 


5875 
5896 


SEQ 0125 


5878 
5904 


ee —-_ oe: ~— ee eee a ee le 


J 10 
CJKDADO KTF11=AA MMU DIA MACY1? 30A(1052) 14=JAN~-81 11:36 PAGE 127 


1AG 

CJKDAD.P11 19=DEC-80 11:05 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0126 

SSCOPE 034504 1289 41284 

SSETUP= 000137 75 1288 1289 1291 1293 1295 1297 1298 1299 1301 1315 1344 1347 
4129 4193 4226 4234 4522 4699 §221 

S$STUP = 177777 7534 

SSVLAD 934512 4139 41684 

$SVPC = 000204 7684 773 

$SwR = 1774006 5534 563 567 568 569 570 571 572 573 574 847 848 
1298 1299 1301 1315 1316 1384 1407 1433 1472 1§11 1553 1593 1633 
1673 1716 1772 1794 1828 1872 1918 1962 2010 2057 2129 2289 2432 
2551 2617 2678 2733 2306 2899 3014 3130 3180 3270 3309 3341 3391 
3469 3643 3814 3966 4009 4120 4121 4122 4123 4124 4130 4142 4144 
4145 4148 4149 4150 4157 4158 4159 4171 4174 4177 4184 4185 4186 
4187 4188 4204 4211 4223 4227 4239 5220 


46 
8254 4520 4529 4545 4557* 4577* 4608 4614 4799 4806 4828 
8414 2149* 2155 2176* 2182 2203* 2209 2298* 2304 2325* 25331 2352* 2358 
2379* $74 2458* 2750* 2780 3 iy 2847 sce. 3213 3415* 3421* 3425* 


3235 
8434 <s55" 3216 3573* 3574 3600* 53601 3732 3733* 3767* 3769 3901* 3902 


8454 

8464 4710" 4711* £44717 

5534 63 1376 13844 1401 14074 1425 14334 1462 14724 1478 1500 15114 
1530 1544 15534 1570 1584 15934 1610 1624 16334 1650 1664 16734 1690 

1704 17164 1761 17724 1785 17948 1814 1819 18284 1862 18724 1909 19184 
1953 19624 1997 20104 2046 OS74# 21117 21294 2276 22894 2402 24324 2512 

2534 25514 2600 26174 2667 26784 2723 27334 2796 28064 2886 28994 3001 

30144 1 313504 3165 57 32704 3301 33094 3328 33414 3375 33914 


3115 31804 2 
34694 3613 3630 36434 3783 3801 38144 3941 3957 39664 3999 40094 


7 
51604 5169 51704 51714 ‘51724 5173 51744 5175 51764 5177 51784 5179% 51804 


8054 4043* 4119 4146 4168* 4169 4174 4178 4200 4205 4239 4713 
4636 4637 4655 4673 4687 46914 


48944 5173 
49984 5172 
4749% 4859 5160 5168 
4579 4779 4786 4793 479848 
4821 4825 48264 
49394 5169 
938 49418 5171 
49344 170 








eesti icin teen tite a - - — 
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SUNITM 000214 


SuSwWR 001252 
Be : Be 
$XTSTR 936316 


SOFILL 040203 
$40 


CAT= seee08 


= 050435 


-BASTA= seeeer Yj 
$x = 000204 


CJKDADO KTF11-AA MMU DIAG 
19=DEC=-80 11:0 


ee eee ee ee —_ — - ee ee ee 


ose eee eee eee — — — ————— 
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: CROSS REFERENCE TABLE -- USER SYMBOLS 


4828 
4828 
4939* 4949 
4213 

75 768 
1315 1316 
46998 4828 
4835 

784 


49844 

7694 7714 7734 
13604 40584 40724 
48808 50524 51364 


779 7804 
41134 4177 
5198 5224 


7824 
4178 
52324 


7844 
4239 
58264 


8024 
43304 


853 
4520 


ee ree mm me 


SEQ 0127 


12784 
46918 


ee ee ee ee ee ee LT 
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p 
CJKDAD.P11 19=DEC-80 11:05 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0128 
ADDTST 7524 2163 2170 2197 2292 2319 2346 2373 
COMME N 6854 
ENDCOM 6854 
ERROR 5794 §6©1238 1269 1392 1416 1443 1456 1481 #1528 1533 1568 1573 1608 1613 1648 
1653 1688 1693 1722 1731 1743 1752 1778 1797 1804 1815 1835 1847 1879 1892 
1929 1941 1973 1985 2070 2081 2092 2104 2161 2188 2215 2243 2267 2310 2337 
2564 2391 2468 2524 2570 2581 2590 2636 2647 2656 2688 2701 2752 2760 2768 
2775 2819 2827 2835 2842 2923 2934 2941 2953 3036 3047 3054 3 3147 3188 
3197 3221 3237 3246 3287 3321 3347 3357 3364 3435 3511 3516 3529 354 3552 
3564 3579 3592 3607 3621 3657 3575 3692 3707 3723 3741 3758 3777 3791 3840 
3845 3858 3870 3881 3893 3907 3920 3934 3949 3975 3980 3991 4018 4025 4417 
46431 4445 4459 
ESCAPE 6854 
CETPRI 6854 
TSWR 6854 13474 
MSGI 13764 #1578 
MSG10 16244 1626 
MSG11 16644 1666 
MSG12 17044 1706 
MSG15 17614 1763 
MSG14 17854 1787 
MSG15 18174 1821 
MSG16 18624 1864 
MSG17 19094 1917 
MSG2 14018 1403 
MSG20 19534 1955 
G21 19974 1999 
MSG21A 20464 2048 
MSG22 21114 2113 
MSG23 2 2278 


MSG27 26678 2 

MSG3 14254 1427 
MSG30 27238 2725 
MSG31 27 2798 
MSG32 28854 2888 
MSG35 3 3003 
MSG34 31144 3117 
MSG55 31644 3167 
MSG36 32564 3259 
M 33014 3303 
MSG57 3274 3330 


MUL T 6854 
NEWTST 6854 1376 1401 1425 1462 1500 1544 1584 1624 1664 1704 1761 1785 1819 1862 
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| CJKDAD.PT1 19-DE C80 11:05 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0129 
| 1909 1033 1997 2066 2111 2276 2602 2534 2600 2667 2723 2796 2886 3001 3115 
2165 3257 «= 3301Sf's«s«3828)~=—s3375)— 3456S 86300 3801S 3957 = 3995 
Ssag 6BS#@ «4511S GB746~Ss«4B75.—Ss«S0389~=Ss«S091-Ss«S 207 ~—Ss«45 208 
5538 6854 4485 4835 4837 4858 4998 5071 5188 519% 
7528@ 619% 
SROe 4««1383:=i‘zOGH | OCGB2])CO14717~—s«1510—'—«*dSS2~—s—«‘i2592)—Ss«d1632-——i‘id2672~—s—=‘ia171S-——s«*d1771”~—:*—é«‘*793~=~*«iBQF—s«18°771 
1917, 1961. 2009-Sts«i056—Sti«<i 2BSCt*«i BB OC2H31)=S 2550 )=S «2616S 2677S 2732S 2805) 2898 «= 3013S 3129 
3179, 3369 3308 3340 3390 3468 3642 3813 3965 4008 4042 
51608 5169 5170 5171 «+5172 «5173 #5175 +5177 «+5178 5179 «+5180 5181 
854 1478 1530 1570 1610 1650 1690 1813 2512 3613 3783 3941 
6854 
6854 766 776 778 785 798 853 856 1218 1225 1246 1253 41376 1382 1401 
1408 1625 1431 1662 14670 1686 1497 1500 1509 1544 1551 1584 1591 1624 1631 
1664 1671 «+1706 +« «+1716 +~«#291761+~=«1770~=Sté«é«#278S~=S=té‘(792~)~S=«*1B19':—«‘*1B2HSs*«‘ BHP? ))C1B700- «1909 s«*1916 «1953 
1960 1997 2008 2066 2055 2111 2127 2276 2287 2602 24630 2534 2549 2600 2615 
2667 2676 «= 3711~Ss«i?21Ssé«72B':é«‘i8Ss—«79KHsi“ié‘éaOSCC2B8G7sC BBS )S2BBHSCsC«2B97-——«3001-Ss—isi3012—Ss 5315 
$128 «60s 3165.—S'si«317B©=Ss«iS8257~—~—S—s«#2OBWeOC*«‘SBO1«=OsC«#3307~=—s«332B)2C3339°«=—s 3375S 3389 «= 3448 «= 3453 3456 3467 
$00 36A1—Ssi«3801~Ssé«‘SBDs“‘<‘«‘éS?OO896G «= 8999) 4007s 116 4180 39s 4241 4335) 4342 43540 4360 
4370 4378 4399 4607 4468 4683 4519 4522 4598 4627 4734 4830 4887 4911 4988 
5055 $100 5139 5184 5200 
6854 13174 
7529 «61546215860 16260—s«*166686 
759% #1553 1593 1633 1673 
51604 
6854 4307 
6854 4300 4717 
6854 1340 
6854 
6854 
4nee «662660 C6203 0C—i(iwkSKO CUA 
6854 
7524 ~=—- 889 
7524 ©2536 ~=—-- 2602 
7594 «92552 ~=- 2618 
7964 8835 836 837 838 839 840 
7968 841 B42 843 B44 845 846 
6854 1376 1601 1425 1462 1500 1544 1586 1624 1664 1704 1761 1785 #1819 1862 
1909 1952 1997 2066 2111 2276 2602 2534 2600 2667 2723 2796 2886 3001 3115 
3165 3257 3301 3328 3375 3456 3630 3801 3957 3999 
5160 5169 +5170 «+5171 #245172 ~«=«5178~Sss«S175.~Ss«*S177.St's«*S7B=CsC«‘*S179=—s—«‘S180—S—«S'181 
13014 
685¢ 1678 1530 1570 1610 1650 1690 1814 2512 3613 3783 3941 
5534 2575 
553a 554 
5534 = 685 
553e 0753 
553a «563 
5754 
553" 764 
5534 8544 
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CJKDAD.P11 19=DEC=80 11:05 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0150 


.SAPTH 5534 774, 
.SAPTY 5534 4828 
-SCATC 5534 753 
.SCMTA 5534 796 
. 5S3@ 65098 
. SEOP 5534 
. SER 5534 4178 
.SERRT 5534 

5534 5182 
. BREAD 5534 4517 
. SSAVE 5534 5053 
.$SCOP 5534 864116 
STRAP 5534 865137 
.STYPB 5534 4885 
.STYPD 5534 4986 
STYPE 5534 4732 
.STYPO 5534 4909 
. ABS. C50435 000 


ERRORS DETECTED: 0 
DSKZ:CJKDAD, “rd C JKDAD/CRF /SOL/NL : TOC=CJKDAD.P11 
RUN-TIME: 95 5 SECONDS 


RUN-TIME RATIO: 3387150=1 A 
CORE USED: 32k (63 PAGES) 
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